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INTRODUCTION 



I . 

As the finite conventional energy sources of the world 
are depleted, and their costs increase, alternative energy 
sources are becoming more and more attractive. Although in 
many instances these alternative sources cannot compete 
economically with gas, oil, and other conventional sources, 
it is just a matter of time until alternative and conven- 
tional sources will be competitive. Already many homes 
have solar collectors and other devices designed to decrease 
the consumption of gas, oil, and electricity. Prototype 
solar power plants are appearing in various parts of the 
world, and geothermally produced power is now a viable option 
in areas where this natural resource is available. In short, 
our energy sources are shifting, and by necessity will 
continue to shift, from the non-renewable to the renewable. 

Of the renewable energy sources available, solar energy 
is by far the most abundant. On the average, 1.7 x 10E14 
kilowatts of solar power continually reach the Earth. If 
all of this power could be captured and used, it would amount 
to approximately 5000 times the rate at which power is cur- 
rently consumed by the entire Earth's population [Ref. 1J . 

It should be clear that the development of techniques for 
the conversion of this resource into usable forms of energy 
is essential to our future as an industrial nation. 
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One method that is available for converting solar energy 
into a usable form involves the use of solar thermal collec- 
tors. This type of collector captures the sun's radiated 
energy and transfers the resultant thermal energy to a 
fluid, which in turn transfers its thermal energy to the 
user, or places it in a storage facility [Ref. 1]. 

Solar collectors can be divided into broad categories: 
the nonconcentrating flat plate collectors, and the concen- 
trating collectors. Flat plate collectors are for the most 
part stationary, and do not concentrate the energy received 
by them. In the northern hemisphere flat plate collectors 
are normally set facing south, and are tilted back to an 
angle equal to the local latitude plus 10 degrees as shown 
in Figure 1. In this position the flat plate collector is 
able to efficiently convert radiated energy into thermal 
energy for a large range of incidence angles. Point concen- 
trating collectors on the other hand require an incidence 
angle close to zero to effectively focus the captured radiated 
energy onto a small area, or a receiver vessel. This means 
that, in order to maintain a usable incidence angle, either 
the reflector or its associated receiver must move in 
response to the sun ' s changing celestial position. The greater 
the concentration factor of the particular collector, the 
more critical the incidence angle of the sun's rays becomes. 

The decision to use one collector type over another 
depends to a large extent upon its intended use. For low 
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Solar Noon 




Figure 1. A Flat Plate Collector and the Sun's 
Track for a Typical One Day Period 
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temperature applications the fixed plate collector would 
normally be the correct choice, but for higher temperature 
applications the concentrating collector should be used. 

Power plant applications, for example, use concentrating 
collectors to produce the high temperatures necessary to 
generate turbogenerator drive steam. Household hot water 
and swimming pool heating systems, on the other hand, would 
use flat plate collectors for both economical and practical 
reasons . 

As mentioned, a point concentrating collector's effi- 
ciency is a direct function of how accurately the collector 
can be pointed directly at the sun. A point focusing type 
collector is usually a mirror surfaced parabolic reflector. 

This reflector captures the solar radiation that strikes 
it, and reflects the energy to a point called the focus. 

A receiver is placed at the focus and is heated to very 
high temperatures by the concentrated solar energy. Liquid 
in the receiver absorbs the heat and can be used to perform 
work. Figure 2A. If the reflector is not pointed directly 
at the sun, the incidence angle is not zero and the focus 
shifts from the receiver, as in Figure 2B. 

The mechanism that keeps the point concentrating collector 
pointed at the sun is the main topic of this research. An 
Apple II plus micro computer is used to control a Dual Axis 
Sun Tracking system. The system used already existed, but 
was controlled by an Intel 80/10A Single Board Computer {Ref. 2]. 
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(a) Incidence Angle 0° 




Figure 2. A Point Concentrating Collector 
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Additionally the controlling software was written in assembly 
language, and downloaded onto EPROM'S. The 80/10A was 
replaced by an Apple II plus computer to (1) allow for 
user interaction with the sun tracking system and (2) to 
have the controlling software written in the easier to 
understand Basic programming language. 
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II . 



SYSTEM DESIGN 



A. SYSTEM COMPONENT DESCRIPTION 

The solar tracking system consists of three main com- 
ponents. The first is a mechanism known as a Dual Axis 
Solar Tracking Device. This device consists of two stepping 
motors for horizontal and vertical drive power, four photo 
diode sensors used for sun location and tracking, and four 
limit switches that ensure the tracker drive axis are limited 
in the amount they can rotate, thus preventing system wrap 
around, and providing start position information. Figures 3 
and 4 show front and side views of the solar tracking com- 
ponent. Figure 3 shows the location of the two stepping 
drive motors, and the layout of the photo diode sensors 
( ES , WS , US , DS) . As shown the horizontal and vertical stepping 
motors drive the sensor platform and sensor arm through a 
series of gears. The horizontal motor causes the platform 
to rotate through a maximum 180 degree arc in ei-ther direc- 
tion, while the vertical motor causes the sensor arm to move 
through a maximum 90 degree arc between the up and down 
positions. Figure 4 shows the sensor arm, the limit switches 
(EL, WL, UL, DL) , and the signals into and out of the tracker. 
The signals consist of four electrical current values that 
are proportional to the intensity of the light falling on 
each sensor, four ON (+5V) or OFF (-5V) signals from the 



13 




Figure 3. Dual Axis Sun Tracker (Front View) 
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Figure 4. Dual Axis Sun Tracker (Side View) 
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limit switches, and drive signals from the controlling 
computer to the stepping drive motors. 

The next component of the system is called the Amplifi- 
cation/Isolation box, hereafter called the A/I box. This 
box contains the circuitry necessary to interface the 
controlling computer to the sun tracker. Motor drive commands 
arriving from the computer are amplified and sent on to the 
drive motors, and sensor signals are amplified before being 
sent to the computer. Also associated with the amplifica- 
tion circuitry are isolation circuits to protect the computer 
from short circuits and power surges. The limit switch 
signals also go through the A/I box on their way to the 
computer, but are not altered in the process. 

The third main component is the Apple II plus computer. 
This component with its associated software takes in the 
sensor data and provides the proper drive motor control 
signals to locate and track the sun. Limit switch values are 
also checked to determine if the tracker has reached the 
limit of a particular drive direction. As mentioned the 
Apple replaced the Intel computer so that the system would 
be user interactive, and the software would be easier to 
interpret in the higher level Basic language. Figure 5 is 
a system block diagram which shows the signal flow between 
components, as well as the internal flow of the computer. 

The analog to digital card and controlling software within 
the computer will be discussed in detail later. 
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Figure 5. Solar Tracker System Block Diagram 



B . SYSTEM STRUCTURE 



While some system operation and hardware descriptions 
were available in [Ref. 2], they were insufficient to provide 
the detailed system knowledge necessary to integrate a new 
computer into the system. It was therefore necessary to 
begin the integration process by performing a thorough 
system trace out. 

The A/I box was the initial and main focus of this 
trace out since all system signals enter and exit this 
component. First, all wires entering and leaving the box 
were traced. Figure 6 and Table 1 describe the results of 
this effort. Jacks one through three and single wire 
connections A through V are illustrated with their associated 
inputs and outputs, these inputs and outputs are further 
described in Table 1. It should be noted that the micro- 
processor referenced in the signal descriptions is the 
original Intel 80/10A and not the Apple. These signals are 
provided since the Intel hook up was left intact so it can 
still be used if desired. . The Apple is connected inside 
the A/I box via a bus bar. Once the input and output con- 
nections were determined, the A/I boxes internal electronics 
could be traced. Figure 7 and Table 2 show the layout of 
the circuit board inside the A/I box, and describe the 
signals entering and leaving it. Note that the four LM747 
OPAMP chips are all connected up identically, but only the 
east sensor (ES) hook up is drawn to avoid cluttering the 
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Figure 6, Plug Wiring Diagram for Top of Ampl if ication/Isolation Box 



TABLE 1 



SIGNAL DESCRIPTION FOR TOP OF AMPLIFICATION/ ISOLATION BOX 



JACK J1 

(1) EAST LIMIT SWITCH SIGNAL TO MICROPROCESSOR 

(2) DOWN SENSOR SIGNAL TO MICROPROCESSOR 

(3) UP SENSOR SIGNAL TO MICROPROCESSOR 

< 4) WEST SENSOR SIGNAL TO MICROPROCESSOR 
(5) EAST SENSOR SIGNAL TO MICROPROCESSOR 
<6) GROUND 

(7) GROUND 

(8) UP LIMIT SWITCH SIGNAL TO MICROPROCESSOR 

(9) DOWN LIMIT SWITCH SIGNAL TO MICROPROCESSOR 

(10) WEST LIMIT SWITCH SIGNAL TO MICROPROCESSOR 

(11) NOT USED 

(12) +15 VOLTS TO LM 747 CHIP 

(13) -15 VOLTS TO LM 747 CHIP 

(14) GROUND 



JACK J2 

(1) UP SENSOR INPUT FROM TRACKER 

(2) EAST SENSOR INPUT FROM TRACKER 

(3) VERTICAL DRIVE STEP ELEMENT #1 FROM MICROPROCESSOR 

(4) VERTICAL DRIVE STEP ELEMENT #2 FROM MICROPROCESSOR 

(5) VERTICAL DRIVE STEP ELEMENT #3 FROM MICROPROCESSOR 

(6) VERTICAL DRIVE STEP ELEMENT #4 FROM MICROPROCESSOR 

(7) GROUND 

(8) NOT USED 

(9) WEST SENSOR INPUT FROM TRACKER 

(10) DOWN SENSOR INPUT FROM TRACKER 

(11) HORIZONTAL DRIVE STEP ELEMENT #1 FROM MICROPROCESSOR 

(12) HORIZONTAL DRIVE STEP ELEMENT #2 FROM MICROPROCESSOR 

(13) HORIZONTAL DRIVE STEP ELEMENT #3 FROM MICROPROCESSOR 

(14) HORIZONTAL DRIVE STEP ELEMENT #4 FROM MICROPROCESSOR 



JACK J3 

(1) +6.3 VOLTS TO VERTICAL STEPPING MOTOR 

(2) AMPLIFIED VERTICAL STEP ELEMENT #3 TO VERTICAL 
STEPPING MOTOR 

(3) +6.3 VOLTS TO VERTICAL STEPPING MOTOR 

(4) AMPLIFIED VERTICAL STEP ELEMENT #1 TO VERTICAL 
STEPPING MOTOR 
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(5) AMPLIFIED VERTICAL STEP ELEMENT #2 TO VERTICAL 
STEPPING MOTOR 

(6) AMPLIFIED VERTICAL STEP ELEMENT #4 TO VERTICAL 
STEPPING MOTOR 

(7) AMPLIFIED HORIZONTAL STEP ELEMENT #4 TO HORIZONTAL 
STEPPING MOTOR 

(8) +6.3 VOLTS TO HORIZONTAL STEPPING MOTOR 

(9) +6.3 VOLTS TO HORIZONTAL STEPPING MOTOR 

(10) AMPLIFIED HORIZONTAL STEP ELEMENT #3 TO HORIZONTAL 
STEPPING MOTOR 

(11) AMPLIFIED HORIZONTAL STEP ELEMENT #2 TO HORIZONTAL 
STEPPING MOTOR 

(12) AMPLIFIED HORIZONTAL STEP ELEMENT #1 TO HORIZONTAL 
STEPPING MOTOR 

(13) NOT USED 

(14) NOT USED 



SINGLE PIN JACKS 



(A) 

(B) 

(C) 

(D) 

(E) 

(F) 

(G) 

(H) 

(I) 

(J) 

(K) 

(L) 

(M) 

(N) 

(O) 

(P) 

(Q) 

(R) 

(S) 

(T) 

(U) 

(V) 



+5 VOLTS 

+5 VOLTS TO LIMIT SWITCHES 

-15 VOLT INPUT WHEN NOT USING INTEL 80/10A 
+15 VOLT INPUT WHEN NOT USING INTEL 80/10A 
EAST LIMIT SWITCH SIGNAL FROM TRACKER 
NOT USED 

WEST LIMIT SWITCH SIGNAL FROM TRACKER 
NOT USED 
NOT USED 

+6.3 VOLTS FROM EXTERNAL POWER SUPPLY 

+6.3 VOLTS FROM EXTERNAL POWER SUPPLY 

GROUND 

GROUND 

NOT USED 

NOT USED 

UP LIMIT SWITCH SIGNAL FROM TRACKER 



NOT USED 

DOWN LIMIT SWITCH SIGNAL FROM TRACKER 

NOT USED 

NOT USED 

GROUND 

GROUND 
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TABLE 2 



AMPLIFICATION/ ISOLATION BOX CIRCUIT BOARD SIGNALS 
(LETTERED PINS ARE ON TOP OF CIRCUIT BOARD) 



(A) GROUND 

( 1 ) GROUND 

(B) +6.3 VOLTS TO 7805 VOLTAGE REGULATOR FOR +5 VOLTS 
REGULATED SUPPLY TO 7407 CHIPS 

(2) +15 VOLTS IN FOR LM 747 CHIPS 

(C) -15 VOLTS IN FOR LM 747 CHIPS 

(3) +5 VOLTS OUT USED BY' LIMIT SWITCHES 

(M) DOWN SENSOR AMPLIFIED SIGNAL OUTPUT 

(11) DOWN SENSOR UNAMPLIFIED SIGNAL INPUT TO LM 747 CHIP 

(N) UP SENSOR AMPLIFIED SIGNAL OUTPUT 

(12) UP SENSOR UNAMPLIFIED SIGNAL INPUT TO LM 747 CHIP 
(P) WEST SENSOR AMPLIFIED SIGNAL OUTPUT 

(13) WEST SENSOR UN AMPLIFIED SIGNAL INPUT TO LM 747 CHIP 
(R) EAST SENSOR AMPLIFIED SIGNAL OUTPUT 

(14) EAST SENSOR UNAMPLIFIED SIGNAL INPUT TO LM 747 CHIP 
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VERTICAL 

BASE 


STEP 


ELEMENT 


#1 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(15) 


VERTICAL 


STEP 


ELEMENT 


#1 


INPUT 


FROM 


MICROPROCESSOR 


(T) 


VERTICAL 

BASE 


STEP 


ELEMENT 


#2 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(16) 


VERTICAL 


STEP 


ELEMENT 


#2 


INPUT 


FROM 


MICROPROCESSOR 


(U) 


VERTICAL 

BASE 


STEP 


ELEMENT 


#3 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(17) 


VERTICAL 


STEP 


ELEMENT 


#3 


INPUT 


FROM 


MICROPROCESSOR 


(V) 


VERTICAL 

BASE 


STEP 


ELEMENT 


#4 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(18) 


VERTICAL 


STEP 


ELEMENT 


#4 


INPUT 


FROM 


MICROPROCESSOR 



(W) 


HORIZONTAL 

BASE 


STEP 


ELEMENT 


#4 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(1?) 


HORIZONTAL 


STEP 


ELEMENT 


#4 


INPUT 


FROM 


MICROPROCESSOR 


(X) 


HORIZONTAL 

BASE 


STEP 


ELEMENT 


#3 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(20) 


HORIZONTAL 


STEP 


ELEMENT 


#3 


INPUT 


FROM 


MICROPROCESSOR 


(Y) 


HORIZONTAL 

BASE 


STEP 


ELEMENT 


#2 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(21) 


HORIZONTAL 


STEP 


ELEMENT 


#2 


INPUT 


FROM 


MICROPROCESSOR 


(Z) 


HORIZONTAL 

BASE 


STEP 


ELEMENT 


#1 


OUTPUT 


TO 


POWER 


TRANSISTOR 


(22) 


HORIZONTAL 


STEP 


ELEMENT 


#1 


INPUT 


FROM 


MICROPROCESSOR 
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figure. Additionally all signals entering and leaving the 
circuit board apply to either the Intel or Apple computers. 
Figure 8 shows the remainder of the electronics inside the 
A/I box, namely the eight power transistors used to amplify 
the step signals sent to the stepping motors. The step ele- 
ments Vl through V4 and Hi through H4 will be explained in 
detail later. Figure 9 and Table 3 are included only for 
completeness of system documentation , and to avoid future 
duplication of effort. They represent the Intel 80/10A 
wiring and signal description. 

C. SYSTEM OPERATION 

Once the signal flow had been determined, the actual 
system operation was the next focus of investigation. This 
information was necessary because the characteristics of the 
signals coming into, and the type of the signals going out 
of the new computer had to be known. 

There were two areas of investigation during the system 
operation phase. The first was the two driver stepping 
motors, and their control circuitry. A thorough understanding 
of their operation was essential to the later development 
of the software drive routines. As no technical documenta- 
tion was readily available for the stepping motors that were 
used, the following data was obtained from [Ref. 2], experi- 
mentation, name plate data, and general stepping motor theory 
[Ref. 3]. The motors used were Superior Electric synchronous 



24 



o 

CQ 



— X 




OJX 




rO X 




<tx 



^ > 




rO > 




CM > 




-> 



m 

PS 

o 

Eh 



in 

H 

m 

2 



Eh 

PS 

w 

O 

Pu 




c 

0 

4 -> 

!T 3 

i— i 
0 
cn 



\ 

c 

o 

•H 

-P 

r a 

o 

'H 

4-1 

•H 



a 



cu 

r O 

•H 

tn 

c 



-P 

D 

O 

>i 

ra 

PJ 

P 

O 

-P 

w 

*H 

0 ] 

C 

<T 3 

P 

Eh 

P 

cu 

2 

O 

a, 



CO 

0) 

p 

O 

& 

•H 

Cm 



25 




26 



Figure 9 . INTEL 80/10A Single Board Computer Connections 



TABLE 3 



INTEL 80/10A SINGLE BOARD COMPUTER CONNECTIONS 



JACK 


J1 






(36) 


GROUND 






(41) 


HORIZONTAL 


STEP 


ELEMENT 


(43) 


HORIZONTAL 


STEP 


ELEMENT 


(45) 


HORIZONTAL 


STEP 


ELEMENT 


(47) 


HORIZONTAL 


STEP 


ELEMENT 




(REMAINING 


PINS 


NOT USED 



#1 TO AMPLIFIER/ISOLATION BOX 
#2 TO AMPLIFIER/ ISOLATION BOX 
#3 TO AMPLIFIER/ ISOLATION BOX 
#4 TO AMPLIFIER/ ISOLATION BOX 
) 



JACK J2 



<44) GROUND 

(43) VERTICAL STEP ELEMENT #1 TO AMPLIFIER/ ISOLATION BOX 

(45) VERTICAL STEP ELEMENT #2 TO AMPLIFIER/ ISOLATION BOX 

(47) VERTICAL STEP ELEMENT #3 TO AMPLIFIER/ ISOLATION BOX 

(49) VERTICAL STEP ELEMENT #4 TO AMPLIFIER/ ISOLATION BOX 

(REMAINING PINS NOT USED) 



JACK J3 

(2) GROUND 
(4) GROUND 

(6) -15 VOLTS TO AMPLIFIER/ISOLATION BOX 

(8) +15 VOLTS TO AMPLIFIER/ ISOLATION BOX 

(18, 19,21,23,25,27,29,31,33) GROUND 

(20) EAST SENSOR INPUT FROM AMPLIFIER/ ISOLATION BOX 

(22) WEST SENSOR INPUT FROM AMPLIFIER/ ISOLATION BOX 

(24) UP SENSOR INPUT FROM AMPLIFIER/ ISOLATION BOX 
(26) DOWN SENSOR INPUT FROM AMPLIFIER/ ISOLATION BOX 

(28) EAST LIMIT SWITCH INPUT FROM AMPLIFIER/ ISOLATION BOX 

(30) WEST LIMIT SWITCH INPUT FROM AMPLIFIER/ISOLATION BOX 

(32) DOWN LIMIT SWITCH INPUT FROM AMPLIFIER/ ISOLATION BOX 

(REMAINING PINS NOT USED) 
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stepping motors that have a nominal DC voltage rating of 
6.9. Volts and a rated amperes per winding value of 1.6 Amps. 
Figure 10 is a schematic representation of a typical stepping 
motor, and its interface to the system. In this schematic 
the rotor is a four pole permanent magnet (large circle) . 

There are eight stators, each of which is an electromagnet. 
These stators are divided into two groups of four. One group 
is controlled by power transistors 1 and 2, the other by 3 
and 4. Each stator is wound by wire in two directions. For 
the set controlled by power transistors 1 and 2 the polarities 
of each stator depend on whether transistor 1 or 2 is turned 
on. The left hand rule for electron current flow can be 
used to determine the polarity of each sensor. By wrapping 
the fingers of the left hand around the stator in the direc- 
tion of current flow, the north pole is determined to be the 
end of the stator that the thumb points to. For example if 
transistor 1 is turned on, electron current will flow from 
the grounded terminal of the transistor to the +6.9 Volts at 
the top of the diagram. By applying the left hand rule, a 
S-N-S-N configuration is observed. If transistor 2 were 
conducting a N-S-N-S configuration would result. Transistors 
1 and 2 conducting at the same time is not a valid state. 
Transistors 3 and 4 control the other set of stators in a 
similar manner. It is by this ability to alter the polarity 
of these stator sets that the stepping motion of the motors 
is realized. An example step command is illustrated in the 
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10. Schematic Diagram of Typical Stepping Motor 



figure. In this instance a 1001 step is input to a 7407 
noninverting hex driver chip. A "1" represents a +5 Volt 
high signal, and a "0" represents a zero Volt low signal. 

When a low signal is applied, the driver can sink up to 
30mA. , and the +5 volts at the base of the transistor is 
dropped across the base resistor thus keeping the transistor 
turned off. When a high signal is sensed the driver becomes 
an open circuit, and the +5 Volts is no longer dropped across 
the base resistor. The +5 Volts is sensed at the base of the 
NPN transistor, and it is turned on. Current can now be 
conducted through the stator windings so that the stators 
are polarized. With the above description in mind, the 1001 
step example can easily be shown to produce the indicated 
stator polarizations. Finally remembering that unlike poles 
attract, the rotor orientation is set as shown. 

In summary each step command to the stepping motor has 
four step elements, as in the 1001 example. The first two 
elements control one set of four stators, and the last two 
steps the second set. The polarity configuration of a 
stator set is determined by which of the two controlling step 
elements is high. 

The above description is for a four pole rotor with 
eight stators. The actual stepping motor used has four 50 
pole rotors stacked one above the other, each offset slightly 
from the one below it. This offset in essence gives a 100 
pole rotor. There are still only eight electromagnetic 
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stators, but each has five high points on its surface. The 
magnetic field is concentrated at the high points giving the 
appearance of five stators of the same polarity. This large 
number of poles allows the step size to be either 0.9 or 
1.8 degrees, depending upon the drive sequence used to step 
the motor. These step sizes correspond to either 400 or 200 
steps per 360 degree revolution. The example that was dis- 
cussed in Figure 10 would have produced 22.5 or 45 degree 
steps for 16 or 8 steps per revolution, again depending upon 
the drive sequence used. The smaller steps of the real 
motor are clearly more useful in real world applications 
than the large steps of the example. 

As mentioned the step size depends on the drive sequence 
used. Figure 11 shows a four step loop. Notice that each 
change in stator polarization produces a 45 degree movement 
of the rotor. The loop is repeated over and over to drive 
the stepping motor the desired number of steps. In this case 
the loop must be repeated twice per 360 degree revolution. 

It should be noted that step one produced a 45 degree movement 
of the rotor to place it in the first position, so that four 
steps produce a 180 degree transition. The small numbers 1 
and 2 on the first step, mark the starting positions of the 
first and second stator sets. The stators are laid out in 
the same manner as those in Figure 10. Again the first two 
elements of each step control stator set one, and the last 
two stator set two. Figure 12 is a typical eight step loop. 
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Figure 11. Four Step Drive Routine 
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Figure 12. Eight Step Drive Sequence 



In this case each step moves the rotor 22.5 degrees. The 
smaller steps are realized by inserting four extra steps 
between the original four. In each of the extra steps one 
of the stator sets is left off by not turning on either of 
its associated transistors. The rotor aligns itself as 
illustrated, on the energized stator set. It is these same 
4 and 8 step loops that produce the 0.9 and 1.8 degree steps 
of the real drive motors. The only difference is that the 
loop must be repeated many more times per motor revolution. 
With the above information, drive routines for the new 
computer could now be developed. 

The second of the two main areas of investigation was 
the sensor circuitry. As mentioned the sensors are photo- 
diodes that generate a current proportional to the intensity 
of the light falling on them. Figure 13 shows sensor output 
signal amplification circuitry for the east sensor. The 
letters A through F correspond to the letters at the top of 
the A/I box circuit board shown in Figure 7, so that this 
figure can be tied to the actual hardware. The circuit 
operates as follows. The first op amp provides a voltage 
output proportional to the current input from the energized 
photodiode. This voltage is then further amplified by the 
second op amp, to provide a signal that is usable by the 
computer. This output varies from near zero volts when the 
sensor is in a shadow, to near 2.5 volts in the bright 
sunlight. 
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Figure 13. Sensor Signal Amplification Circuit 



D. COMPUTER INTEGRATION 



With the preliminary research complete, the problem of 
integrating the new computer into the system could be taken 
up. The Apple II Plus computer is equipped with several 
internal card slots, so that integrated circuit cards which 
perform many different functions can be added to the computer. 
After some difficulty in choosing a card to use for inter- 
facing the computer to the system, an analog to digital/ 
digital to analog card (A/D card) was chosen [Ref. 4]. This 
card has 16 channels of analog input and 16 channels of 
analog output. Each of the 32 channels has an address and 
can be accessed by software commands. Eight of the digital 
to analog output channels (4 per motor) were used to deliver 
the drive step commands to the stepper motors. Additionally 
eight of the analog to digital input channels were used to 
input the 4 sensor and the 4 limit switch signals. Figure 14 
shows the A/D card and the jacks coming from it. These jacks 
are connected to two similar jacks coming from the A/I box. 
Table 4 describes the signals on the jacks, lists the 
A/D card channel associated with each pin (whether used or 
not) , and gives the color of the wire associated with each 
signal for ease of identification. With the hardware inter- 
facing completed the development of the controlling software 
could’ begin . 
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Figure 14 . Analog to Digital Card with Connecting Jacks 



TABLE 4 



LISTING OF THE A/D CARD JACK CONNECTIONS 
(WIRE COLOR GIVEN AT END OF SIGNAL DESCRIPTION) 
(NOTE CARD CHANNEL GIVEN BELOW SIGNAL DESCRIPTION) 



JACK #1 

( 1 ) NOT USED 
CHANNEL 15 

(2) NOT USED 
CHANNEL 14 

(3) NOT USED 
CHANNEL 13 

(4) NOT USED 
CHANNEL 12 

(5) NOT USED 
CHANNEL 11 

(6) NOT USED 
CHANNEL 10 

(7) NOT USED 
CHANNEL 9 

(8) VERTICAL STEP ELEMENT #4 TO AMP/ ISOLATI ON BOX (YELLOW) 
CHANNEL 8 

(9) VERTICAL STEP ELEMENT #3 TO A/ I BOX (GREEN) 

CHANNEL 7 

(10) VERTICAL STEP ELEMENT #2 TO A/I BOX (RED) 

CHANNEL 6 

(11) VERTICAL STEP ELEMENT #1 TO A/ I BOX (BLUE) 

CHANNEL 5 

(12) HORIZONTAL STEP ELEMENT #4 TO A/ I BOX (YELLOW) 

CHANNEL 4 

(13) HORIZONTAL STEP ELEMENT #3 TO A/ I BOX (GREEN) 

CHANNEL 3 

(14-21) COMMON GROUNDS, GROUND WIRE FROM A/ I BOX IN 14 

(BLACK) 

(22) NOT USED 

(23) NOT USED 
CHANNEL O 

(24) HORIZONTAL STEP ELEMENT #1 TO A/ I BOX (BLUE) 

CHANNEL 1 

(25) HORIZONTAL STEP ELEMENT #2 TO A/ I BOX (RED) 

CHANNEL 2 
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JACK #2 



( 1 ) NOT USED 
CHANNEL 15 

(2) NOT USED 
CHANNEL 14 

(3) NOT USED 
CHANNEL 13 

(4) NOT USED 
CHANNEL 12 

(5) NOT USED 
CHANNEL 11 

(6) NOT USED 
CHANNEL 10 

(7) NOT USED 
CHANNEL 9 

(8) DOWN LIMIT SWITCH INPUT FROM A/I BOX (YELLOW) 
CHANNEL 8 

(9) UP LIMIT SWITCH INPUT FROM A/ I BOX (GREEN) 

CHANNEL 7 

(10) WEST LIMIT SWITCH INPUT FROM A/I BOX (RED) 

CHANNEL 6 

(11) EAST LIMIT SWITCH INPUT FROM A/ I BOX (BLUE) 
CHANNEL 5 

(12) DOWN SENSOR INPUT FROM A/ I BOX (YELLOW) 

CHANNEL 4 

(13) UP SENSOR INPUT FROM A/ I BOX (GREEN) 

CHANNEL 3 

(14-21) COMMON GROUNDS, GROUND WIRE FROM A/ I BOX IN 20 

(BLACK) 

(22) NOT USED 

(23) NOT USED 
CHANNEL 0 

(24) EAST SENSOR INPUT FROM A/ I BOX (BLUE) 

CHANNEL 1 

(25) WEST SENSOR INPUT FROM A/I BOX (RED) 

CHANNEL 2 
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III. SOFTWARE DESIGN 



A. INITIAL PLANNING 

The controlling software for the system was developed 
in three distinct phases. The first phase was the design 
of the driver routines for the system stepping motors. The 
second phase was the development of the sensor and limit 
switch inputs. The third phase was to combine the first two 
phases into a program that would control the system in the 
desired manner. The program developed in the last phase had 
to be capable of obtaining the input data from the 4 photo- 
diode sensors, analyzing it, and causing the appropriate 
drive motor to turn in the proper direction. The program 
must also ensure that none of the limit switches had been 
depressed, and react accordingly if one had been. 

B. DRIVE ROUTINE DESIGN 

As was mentioned previously, the Apple computer has 
several internal slots available for the installation of 
various cards. Since each drive step consists of 4 bits of 
information, a parallel I/O card was initially chosen to 
output the step information to the drive motors. Specifically 
an A488 Communication Interface card was chosen [Ref. 5]. 

This card is designed for communication between the Apple 
and digitally controlled peripherals. The card has 8 bi- 
directional data lines, and 8 control lines. The data sent 
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and received by the card is by means of the ASCII character 
set. The control lines of the card are used for interdevice 
synchronization and data transmission setup commands. 

Attempts were made to utilize this card by having it output 
the ASCII character whose last four bits corresponded to the 
desired drive step. Figure 15 is an example of a program 
developed for an 8 step drive routine. Lines 70 through 
170 are setup commands required by the card, and 180 through 
370 are the dirve loop. All attempts to make this card work 
failed due to the lack of handshaking and control signals 
coming from the seeker system. 

The A/D card mentioned in the last section was also in 
the computer, and was to be used for the conversion of the 
analog input signals into a digital form usable by the com- 
puter. The fact that the A/D card also had 16 output chan- 
nels lead to the idea that these channels could be used to 
produce the necessary drive steps. It was concluded that 
if the 4 elements comprising the step arrived at the stepping 
motor in rapid serial succession rather than at the same 
instant in parallel form, the stepping motor would still 
perform satisfactorily. This would allow for the use of only 
one card for the complete system interface, rather than the 
two required if the A488 were used. 

The value of a particular A/D card output channel is 
set by sending a number from 0 to 255 to the channel address. 
The following are some of the output voltage values corres- 
ponding to various numbers sent to the channel . 
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**-* 



*** PROGRAM TO DRIVE SEEKER WITH 
*** A488 PARALLEL I/O CARD 



10 SL •/. = 5 

20 DT* = "SUN: 01" 

30 RS* = ,,M 
40 FS* = "" 

50 Cl* = MM 
60 PA7. = 1 
70 X = 256 * SL7. 

80 IC = 49152 + X 

90 SN = IC + 16 

100 FI = IC + 32 

HO PA = IC + 96 

120 SO = IC + 192 

130 SR = 49295 + SL7. * 16 

140 PE = 1144 + SL7.:DU = 1272 + SL7. 

150 EOS = 1912 + SL7. 

160 CALL FI: 

170 CALL IC: 



180 


FOR 


T 


= 1 TO 16: RS* = RS* + "" 


’: NEXT 


190 


FOR 


A 


= 1 TO lOO 






200 


Cl* 


= 


"S, SUN" : fs* = "J": 


CALL 


sn: 


210 


PA7. 


= 


100: CALL PA: 






220 


Cl* 


= 


"S, SUN" : FS* = "H" : 


CALL 


sn: 


230 


PA7. 


= 


100: CALL pa: 






240 


Cl* 


= 


"S, SUN" :FS* = "I": 


CALL 


sn: 


250 


PA7. 


= 


100: CALL pa: 






260 


Cl* 


= 


"S, SUN" : FS* = "A": 


CALL 


sn: 


270 


PA7. 


= 


100: CALL pa: 






280 


Cl* 


= 


"S, SUN" : FS* = "E": 


CALL 


sn: 


290 


PA7. 


= 


100: CALL PA: 






300 


Cl* 


= 


“S, SUN" : FS* = M D": 


CALL 


sn: • 


310 


PA7. 


= 


ioo: call pa: 






320 


Cl* 


= 


m s,sun":fs* = "L“: 


CALL 


sn: 


330 


PA7. 


= 


ioo: CALL PA * 






340 


Cl* 


= 


m s,sun":fs* = ’'B": 


CALL 


sn: 


360 


PA7. 


= 


ioo: call pa: 







370 NEXT A 
380 END 



Figure 15. A488 Drive Routine 
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NUMBER 



OUTPUT 



0 


-5.0 Volts 


64 


-2.5 


128 


0.0 


192 


+ 2.5 


255 


+ 5.0 



From the table is can be seen that the card can output 
from -5 to +5 volts in .039 Volt increments. The values 128 
and 255 were chosen to represent the 0 and the 1 values for 
each step element. Analog output channels 1-4 were used for 
the 4 horizontal drive step elements, and 5-8 for the verti- 
cal step elements (see Table 4) . To define a particular 
output from a channel, the base channel address must first 
be computed. To do this the equation M = 49,280 + (slot 
number*16) is used. Here the 49,280 is the starting address 
of all slot dependent locations in the computer, and the 
slot number is an integer from 1 to 7 , depending upon the 
slot that the card was installed in. Next a channel number 
from 0 to 15 must be added to the base address M in order 
to address a particular channel on the card. Note that the 
A/D card must be installed in slot number four if the sun 
seeker program is to work properly. Once the A/D card 
channel address (M+ CHANNEL ADDRESS) has been calculated, the 
POKE command can be used to input any value to the channel 
within the allowable range. POKE is a BASIC command which 
has the form POKE (memory address), (desired value) . Figure 
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16 is an early drive routine using the POKE command. The 
slot number that the card is installed in is given in line 
10, lines 20-45 assign step element values to an array, and 
lines 50-120 are three nested Do Loops. The inner most Do 
Loop I, calculates the memory base value M, and POKES the 
values of' the indicated array element into the proper card 
channel (M+I) . So the basic memory value M is incremented 
by adding the Do Loop values I (1-4) to it, thus four channel 
addresses are calculated. These addresses correspond to the 
A/D card channels used to output the 4 element drive step. 
These addresses together with the desired output voltage 
values are placed in POKE commands to form the step. The 
next Do Loop in Figure 16 (the H loop) , generates a four step 
loop like that of Figure 11. Finally the G loop causes the 
4 step drive loop to be repeated 60 times. 

When this routine was run it suddenly became clear that 
great programming efficiency would be necessary if any kind 
of acceptable system response times were to be achieved. To 
make a transition of only 90 degrees with this drive routine, 
25 seconds were required. In other words to move the tracker 
from an east to a west facing position, it would take close 
to one minute. Figure 17 is the same drive routine as that 
of Figure 16, except that the M calculation was taken out of 
the Do Loop, and calculated only once at the beginning of the 
program. This simple change reduced the 90 degree transition 
time to 12 seconds, for a savings of 13 seconds. While this 
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*** FIRST DRIVE ROUTINE USING A/D *** 
*** CARD. MEMORY CALCULATION IN LOOP*** 
*** REQUIRED 25 SEC. FOR 70 DEG *** 
*** TRANSITION. *** 



10 SL = 4 

20 DIM D ( 16) 

30 D ( 1 ) = 255: 

D (2) = 128: 

D (3) = 255: 

D (4) = 128 

35 D (5) = 255: 

D<6> = 128: 

D<7> = 128: 

D<8> = 255 

40 D (9) = 128: 

D ( 10) = 255: 

D ( 1 1 ) = 128: 

D ( 12) = 255 
45 D ( 13) = 128: 

D < 14) = 255: 

D (15) = 255: 

D ( 16) = 128 
50 FOR G = 1 TO 60 

60 FOR H = 1 TO 4 

70 FOR I = 1 TO 4 

75 M = 49280 + (SL * 16) 

80 POKE M + I,D(I + (4 * (H 

90 NEXT 

110 NEXT 

120 NEXT 



1) ) ) 



Figure 16. 25 Second Drive Routine 





SECOND DRIVE ROUTINE. 






BY MOVING MEMORY CALC. 






OUTSIDE 


LOOP, REDUCED TRANSIT 






TIME TO 


12.4 SEC FOR A 90 DEG 








TRANSITION. 


*** 



10 


SL = 4 




15 


M = 49280 + 


(SL * 16) 


20 


DIM D ( 16) 




30 


D ( 1 ) = 255: 
D (2) = 128: 
D (3) = 255: 
D (4 ) = 128 




35 


D ( 5) = 255: 
D (6) = 128*. 
D (7) = 128: 
D (8) = 255 




40 


D (9 ) = 128: 

D ( 10) = 255: 
D ( 1 1 ) = 128: 
D ( 12) = 255 




45 


D ( 13) = 128: 
D ( 14) = 255: 
D (15) = 255: 
D ( 16) = 128 




50 


FOR G = 1 TO 


60 


60 


FOR H = 1 TO 


4 


70 


FOR I = 1 TO 


4 


80 


POKE M + I , D 


(I + (4 * (H - 1) ) ) 


90 


NEXT 




1 10 


NEXT 




120 


NEXT 





Figure 17. 12 Second Drive Routine 



46 



change cut the time in half, still more time would have to 
be cut because in actual use the drive routine would have 
logic placed between the steps, further slowing it down. 

Figure 18 shows the third drive routine developed. To 
increase execution speed the step elements were taken out of 
an array, and placed directly into the poke commands. The 
A/D card channel addresses for the 4 channels used per step 
are calculated at the beginning of the program before 
entering the drive loop, and are also placed directly into 
the poke commands. Variable names vice constant values were 
used in the poke commands to further increase speed. This 
is because it takes much more time to convert a constant to 
its floating point representation than it does to fetch the 
value of a variable [Ref. 6], Due to the above modifications 
the 90 degree transition time was reduced to 4.8 seconds. 
Figure 19 is the same type drive routine as that of Figure 
18 except that a four step drive loop is used. As would be 
expected the transit time was cut in half to 2.6 seconds due 
to the larger step size, however the operation of the drive 
motor became unstable. At this speed the time to serially 
deliver the four elements comprising a step approaches the 
time between steps of 5 msec. It is therefore possible for 
the inertia of the larger .steps (1.9 vs. 0.8 degrees) , to 
carry the rotor past the next intended position before the 
new step is set up. The drive motor would operate normally 
for a time and then suddenly begin to oscillate about some 
position . 
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*** THIRD DRIVE DESIGN USING A/D *** 
*** CARD. HERE EACH DRIVE STEP HAS *** 
MEMORY ADDRESS ASSIGNED VICE *** 
*** ACCESSING AN ARRAY AS IN FIRST *-** 
*** TWO DESIGNS. TRANSIT TIME FOR *** 
*** 90 DEG TRANSITION WAS REDUCED *-** 







TO 4.8 


SEC. 






80 


EN = 


60 








90 


DE = 


1 








100 


SL = 


4 








120 


ML = 


49280 + 


(SL * 


16) 




140 


DIM M (4) 








160 


Ml = 


ML + 1 








180 


M2 = 


ML + 2 








200 


M3 = 


ML + 3 








220 


M4 = 


ML + 4 








240 


HI = 


255 








260 


LO = 


128 








2000 


FOR HI = 1 TO 


EN 






2100 


POKE 


Ml, Hi: 










POKE 


M2, LO: 










POKE 


M3, Hi: 










POKE 


M4 , LO 








2200 


POKE 


Ml, Hi: 










POKE 


M2, LO: 










POKE 


M3, LO: 










POKE 


M4, LO 








2300 


POKE 


Ml, Hi: 










POKE 


M2, LO: 










POKE 


M3, LO: 










POKE 


M4, HI 








2400 


POKE 


M1,L0: 










POKE 


M2, LO: 










POKE 


M3, LO: 










POKE 


M4, HI 








2500 


POKE 


Ml,LO: 


2700 


POKE 


Ml , LO 




POKE 


M2, hi: 




POKE 


M2, HI 




POKE 


M3, LO: 




POKE 


M3, HI 




POKE 


M4, HI 




POKE 


M4, LO 


2600 


POKE 


M1,L0: 


2800 


POKE 


Ml , LO 




POKE 


M2, hi: 




POKE 


M2, LO 




POKE 


M3, LO: 




POKE 


M3, LO 




POKE 


M4, LO 




POKE 


M4 , HI 



Figure 18. 4.8 Second Eight Step Drive Loop 
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*** THIS DRIVE DESIGN USES ONLY 
*** FOUR DRIVE STEPS PER LOOP. THE *** 
*** TRANSITION TIME FOR THIS DESIGN *** 
*** WAS ONLY 2.6 SEC, HOWEVER THE *#* 
*** DRIVE MOTOR OPERATION BECAME *** 
*** UNRELIABLE. *** 



80 


EN = 


60 




90 


DE = 


1 




100 


SL = 


4 




120 


ML = 


49280 + 


(SL 


140 


DIM M (4) 




160 


Ml = 


ML + 1 




180 


M2 = 


ML + 2 




200 


M3 = 


ML + 3 




220 


M4 = 


ML + 4 




240 


HI = 


255 




260 


LO = 


128 




2000 


FOR HI = 1 TO 


EN 


2100 


POKE 


M1,L0: 






POKE 


M2, Hi: 






POKE 


M3, HI: 






POKE 


M4, LO 




2200 


POKE 


M1,L0: 






POKE 


M2, Hi: 






POKE 


M3, LO: 






POKE 


M4, HI 




2300 


POKE 


Ml, HI: 






POKE 


M2, LO: 






POKE 


M3, LO: 






POKE 


M4, HI 




2400 


POKE 


Ml, Hi: 






POKE 


M2, LO: 






POKE 


M3, HI: 






POKE 


M4, LO 




2900 


NEXT 







Figure 19. 2.6 Second Four Step Drive Loop 
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Figure 20 is a drive routine developed to take advantage 
of the fact that only one of the four step elements changes 
from one step to the next in an eight step loop. Only the 
step element that changed was sent to the drive motor. 

This routine also proved to be highly unstable and was 
discarded . 

The eight step loop of Figure 18 was finally chosen 
for use in the main sun tracking program because of its 
speed, stability, and smoother operation. The four step 
loop even when stabilized by adding delays between the 
steps still produced a jerky drive motion, while the smaller 
0.8 degree steps of the eight step loop caused the motion to 
smooth out. 

C. DESIGN OF THE SIGNAL INPUT ROUTINES 

To control the system the Apple computer must be capable 
of taking in the sensor and limit switch signals as well 
as driving the motors. To do this the PEEK command in 
conjunction with the A/D card is used. The analog voltage 
values of the signals are delivered directly to eight channels 
of the A/D card. 

The card then changes the analog values into their 
digital equivalents for use by the computer. The range of 
digital voltage input values is the same as the output value 
range discussed earlier (0-255 digital for -5V to +5V analog) . 
The PEEK command is of the form VARIABLE NAME = PEEK (A/D 



50 



*** IN THIS DRIVE DESIGN AN *** 
*** ATTEMPT WAS MADE TO TAKE *** 
*** ADVANTAGE OF THE FACT THAT *** 
*** ONLY ONE OF FOUR LEVELS CHANGE*** 
*** PER STEP. SO ONLY THE CHANGING*** 
*** ELEMENT IS POKED EACH STEP. *** 
*** THIS DESIGN PROVED TO BE *** 
*** COMPLETELY UNSTABLE AS A DRIVE*** 
*** ROUTINE. *** 



390 


FOR K = 1 TO 30 


400 


POKE 


49344,255 


405 


POKE 


49345, 128 


410 


POKE 


49346,255 


415 


POKE 


49347, 128 


420 


POKE 


49346, 128 


425 


POKE 


49347,255 


430 


POKE 


49344, 128 


435 


POKE 


49345,255 


440 


POKE 


49347, 128 


445 


POKE 


49346,255 


450 


POKE 


49345, 128 


460 


NEXT 


K 



Figure 20. Drive Routine Varying Single Step Element 
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CARD CHANNEL ADDRESS) . The digital value found at the indi- 
cated address is assigned to the variable. With this par- 
ticular A/D card the PEEK command must be given twice in 
order to get the correct value. The first time the command 
is issued the old value stored in the channel is returned, 
the second time the new sampled value is delivered. Figure 
21 is a routine designed to input sensor and limit switch 
values, and display them on the system monitor. 

In this routine the base address M is calculated in line 
110 and incremented by the Do Loop counter I to get the 
eight input channel addresses of the A/D card. These are the 
same addresses as the eight used for outputting the drive 
steps. The command used (PEEK or POKE) determines whether 
the particular address is used for input or output. The 
input output wiring to and from the A/D card is physically 
separate (see Figure 14), it is only on the internal computer 
bus that the the same lines are used for input and output. 

The table below is included for a quick reference to the A/D 
card channel use. 



CARD ADDRESS 


CHANNEL 


INPUT 


DRIVE STEP 
ELEMENT 


USING SLOT 4 


NUMBER 


USE 




49345 


01 


ES 


HI 


49346 


02 


WS 


H2 


49347 


03 


US 


H3 
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*** THIS ROUTINE WAS THE FIRST *** 
*** ATTEMPT TO UTILIZE THE INPUT *** 
*** SIDE OF THE A/D CARD. ALL *** 
*** SENSOR AND LIMIT SWITCH VALUES*** 
*** ARE OBTAINED BY USING THE DO *** 
*** LOOP. THE VALUES ARE THEN *** 
*** OUTPUT TO THE SCREEN. THIS *** 
*** ROUTINE WAS LATER USED TO *** 
*** OBTAIN SENSOR THRESHOLD VALUES*** 



*** 


FOR USE IN THE MAIN PROGRAM *** 




DESIGN. 




100 


DIM X (8) 




110 


M = 49280 + (4 * 16) 




1 15 


HOME 




120 


FOR I = 1 TO 8 




130 


FOR J = 1 TO 2 




140 


X(I) = PEEK (M + I) 




150 


NEXT J 




160 


NEXT I 




200 


VTAB 21 : PRINT TAB ( 6) 


,, US= ,, X (3) " 




UL=" X (7) 




210 


VTAB 22: PRINT TAB ( 3) 


,, WS=“X (2) " 




ES=" X ( 1 ) " WL=" X <6) “ EL= 


"X (5) 


220 


VTAB 23: PRINT TAB ( 6) 


"DS=" X (4) " 




DL=“ X (8) 




400 


FOR A = 1 TO 100: NEXT 




410 


GOTO 120 





Figure 21. Display Routine 



49348 


04 


DS 


H4 


49349 


05 


EL 


VI 


49350 


06 


WL 


V2 


49 351 


07 


UL 


V3 


49352 


08 


DL 


V4 



The J Do Loop executes the PEEK command twice for each 
of the eight channels determined by the I loop, and assigns 
the proper value to the array variable X(I) . Lines 200-220 
provide the screen output, and line 400 is a 0.1 second delay 
loop added for display clarity. 

D. DETERMINATION OF SENSOR VALUES 

The next step in the design of the software was to 
use the display routine to determine the proper sensor thres- 
hold values for use in the sun tracking routine. With the 
routine running the sensors were exposed to a variety of 
conditions, and the values below were determined. 

CONDITION VALUE 

ANALOG DIGITAL 



Completely Dark 




0 


V 


128 


Exposed to Desk Lamp 




0.08 


V 


130 


Facing Away From Sun on Bright Day 


0.12 


V 


131 


Directly at Bright Sun 


2.34 


V 


188 


4 Sensors Balanced 'on 


Bright Sun 


0.47 


V 


140 


4 Sensors Balanced on 


Hazy Sun 


0.16 


V 


132 


4 Sensors Balanced on 


Cloud Covered Sun 


0.08 


V 


130 
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From the above information it was determined that a 
cutoff value to use for determining if the sun were out or 
not would be 130 or less. Limit switch values were deter- 
mined to be 128 = 0V if not depressed, and 255 = +5V if 
depressed . 

E. FLASHLIGHT FOLLOW ROUTINE 

Once the drive and display routines had been developed 
and expected sensor values had been determined, the next 
step was to combine them into a working routine. The 
flashlight follow routine (Appendix A) , was developed as an 
intermediate step before attacking the more complex sun 
tracking routine. In this routine the sensors are checked 
continuously to see if any go above the threshold value of 
130. If any do then the appropriate drive loop is run. 

There are four eight step drive loops, one for each direction 
of travel (UP, DOWN, EAST, WEST) . It should be pointed out 
that by running the loop in the reverse direction the motor 
will also run in the opposite direction. Table 5 lists the 
eight step loops for each direction of travel. 

At the beginning of each drive loop the four A/D card 
channels to poke the steps to are determined by adding the 
appropriate channel value to the base address. For instance 
Ll = M+5 assigns the address of channel 5 to the variable Ll , 
so that L1-L4 have the addresses of channels 5-8. The L5 
and L6 variables are assigned the channel addresses of the 
limit switch that the system is being driven toward, and the 
sensor that is involved respectively. Next the limit switch 
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TABLE 5 



EIGHT STEP DRIVE LOOPS 



HORIZONTAL MOTOR VERTICAL MOTOR 





A/D 


CARD 


CHANNELS 1-4 


A/D CARD 


CHANNELS 






EAST 


WEST 


UP 


DOWN 


STEP 


l: 


1010 


0010 


0010 


1010 


STEP 


2: 


1000 


0110 


0110 


1000 


STEP 


3: 


1001 


0100 


0100 


1001 


STEP 


4: 


0001 


0101 


0101 


0001 


STEP 


5: 


0101 


OOOl 


0001 


0101 


STEP 


6: 


0100 


lOOl 


1001 


0100 


STEP 


7: 


01 10 


1000 


1000 


0110 


STEP 


8: 


0010 


1010 


1010 


0010 
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and sensor values are checked to be sure that both are still 
within limits. If not the loop is exited, and the program 
returns to the original sensor checking loop. If both values 
are still within limits the first two steps of the drive 
loop are sent to the appropriate drive motor. The limit 
switch and sensor are again checked, and either the loop is 
exited or two more steps are taken. This checking and 
stepping continues until the sensor goes below threshold 
(the flashlight is removed) , or the system runs into the 
stops (the limit switch) . Each of the four drive loops 
works the same, the only difference is the address values 
assigned to L1-L6. 

Now that all the drive loop, sensor inputs, and limit 
switches had been successfully combined, the next step 
was to develop the sun tracking routine. 

F. SUN TRACKING PROGRAM 

The final step in the design of the controlling software 
was to develop the actual sun tracking program (Appendix 
B) . Since the program listing is well remarked, only the 
main points of this program will be discussed. The program 
consists of four main parts. The first is a tracker cali- 
bration routine, the second is a sun location routine, the 
third is a sun tracking routine, and the fourth is a cloud 
cover waiting routine. 

The calibration routine is included because the tabs 
that depress the various limit switches have a tendency to 
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become misaligned. This is important because degrees longi- 
tude, and degrees elevat-ion are displayed on the screen. 

If the system is no longer limited to true east and true 
west or horizontal and vertical, these output values will 
be incorrect. When the tracker is calibrated properly it 
is limited to a transition of 180 degrees between the east 
and west limit switches, and 90 degrees between the up and 
down switches. Due to the gearing between the motors and 
drive structures of the tracker, approximately 1005 steps 
are required for the east to west, and 510 for the up down 
transitions. This routine starts the tracker in an upright 
east facing position, counts the steps required to transition 
to the west facing and down positions, and then returns to 
the east facing upright start position. The step count 
values are checked and if they are outside predetermined 
limits, an appropriate message is displayed on the screen. 

The step count values obtained are also divided by the 
number of degrees in their particular transition to get a 
steps per degree value that will be used for degrees longi- 
tude and elevation calculations in later routines. 

It should be noticed that two vice four drive loops are 
used for the different drive requirements in the sun track- 
ing program. As can be seen in Table 5 the east and down 
drive loops are the same, as are the west and up loops. 

Only. the channel numbers of the step output lines are 
different. If the step and sensor/limit switch channel 
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addresses are determined in controlling logic external to 
the drive loops, and are assigned to common variables, a 
single drive loop can be used for two directions (EAST/DOWN 
or WEST/UP) . 

The sun location routine is used to obtain a rough lock 
on before passing control to the sun tracking routine. 
Starting from the east facing upright position, the system 
is moved toward the west. The up sensor values are checked 
and if they remain the same or increase the sensor is going 
toward the sun. When the values begin to decrease a counter 
is set and if the old sensor reading is less than the new 
value three times in a row, the tracker moves back to the 
position of the first decrease. If the readings are the 
same the counter stays the same, if the new reading is 
more than the last the counter is reset. These counters are 
necessary because the sensor values tend to vary by ±1 quite 
often. If there are three successive decreases then random 
value fluctuations can be ruled out. 

When the tracker has moved back to the point of maximum 
sun intensity (the first sensor value decrease) , it begins 
an upward transition. During this transition the up and down 
values are continually checked. When their values are the 
same the sun's intensity is equal on both sensors, thus the 
tracker is locked onto the sun's elevation. Control is now 
passed to the sun tracking routine. If lock-on is not 
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achieved in either the horizontal or the vertical transitions, 
an appropriate message is printed on the screen. 

The tracking routine's main function is to ensure that 
the UP/DOWN sensor values are the same, and that the EAST/ 
WEST sensors are also balanced. The four values do not 
necessarily have to be the same, only each pair must balance. 
When this is achieved then the tracker is locked onto the 
sun. When one sensor of a pair is not equal to- the other 
a counter is set, if the sensors remain unbalanced for a 
count of five, two drive steps are taken in the direction 
necessary to rebalance the sensor pair. Again the counter 
is necessary due to the sensor outputs tendency to vary about 
a value by ±1. If clouds cover the sun, its intensity 
becomes too low for the sensors to track, and control is 
passed to the cloud cover routine. 

The cloud cover routine continually checks the up sensor 
to determine if it goes back above the threshold value 
(clouds no longer cover the sun) . If it does, control 

4 

is returned to the tracking routine. If the value remains 
below threshold a counter is incremented once each second. 

At 10 minutes or a counter value of 600, control is passed 
back to the sun location routine, which places the tracker 
back in startup position and waits for the sun to reappear. 

The 10 minute limit is necessary because after prolonged 
cloud cover, the sun will move out of position and relocation 
will be necessary. 



60 



As mentioned 
remarked and can 



the program listing (Appendix B) , is well 
be traced through for program specifics. 
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IV. CONCLUSIONS AND RECOMMENDATIONS 



Once completed the system performed well with the new 
computer. The screen/keyboard interaction now available 
expands the possible system uses. Some possible system 
enhancements can be made. 

A clock card could' be added to the Apple that would 
bring a real time capability to the system. By being able 
to determine the date and time, a series of calculations 
could be performed that would give the sun's location. 
Reference 1 in its chapter on "Terrestrial Solar Radiation," 
describes the procedure in some detail. Once latitude and 
elevation values had been calculated for the sun, the tracker 
could be placed in that position and control passed to the 
sun tracking routine. This would do away with the need for 
the sun location routine, and make the initial lock-on much 
faster. Another use would be in the cloud cover routine 
where the tracker's position could be updated by the same 
calculations. Since the tracker's position could now be 
automatically updated, the system would not have to return 
to the start up position after the 10 minute time out. 

Another enhancement would be to assemble the drive 
routines in order to increase drive speed. The assembled 
code would be internal to the system thus preserving the 
easier to interpret Basic code for user understanding. The 
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steps could be delivered to the motors much more rapidly 
than in the Basic form, thus preventing the instability 
problem encountered earlier with the four step drive loop. 

Another idea would be to use the tracker as a position- 
ing device for a larger tracking system. The longitude and 
elevation position information that is now displayed on the 
screen could also be sent to a much larger device, thus 
eliminating the need for sensors on that device. Drive motor 
commands could also be sent to power amplification devices 
that would drive the larger positioning motors. 

A card could be developed and built to be placed inside 
the Apple computer that would replace the circuit board 
currently inside the A/I box. This would reduce the need 
for much of the current external wiring, as the signals would 
interface the computer via the internal bus. With the 
circuit board out of the A/I box the power transistors could 
be relocated into a much smaller box which would be mounted 
under the tracker. This would produce a much more compact 
system. 

One last recommendation is to develop a power supply to 
deliver all the necessary voltages to the system. This would 
do away with the current requirement for three separate 
external power supplies. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 



APPENDIX A 



FLASHLIGHT FOLLOW ROUTINE 

REM "MAIN ROUTINE" 

REM 

REM "FLASHLIGHT FOLLOW" 

REM "ROUTINE" 

REM 

REM "SET HIGH AND LOW" 

REM "MOTOR DRIVE VALUES" 

REM "FOR DRIVE ROUTINES" 

REM 

HI = 255 
LO = 128 
REM 

REM "SET LIMIT SWITCH AND" 

REM "SENSOR THRESHOLDS" 

REM 

THR =130 
CO = 160 
REM 

REM "DETERMINE MEMORY" 

REM "START ADDRESS FOR" 

REM "PROGRAM USE" 

REM 

M = 49280 + (4 * 16) 

REM 

REM "CHECK SENSOR VALUES" 

REM "TO DETERMINE IF ANY" 

REM "ARE ABOVE THRESHOLD" 

REM 

FOR I = 1 TO 4 

FOR J = 1 TO 2 

X(I) = PEEK (M + I)- 

NEXT J 

NEXT I 

REM 

REM “IF ANY ABOVE" 

REM "THRESHOLD GO TO" 

REM “APPROPRIATE DRIVE" 

REM “SUBROUTINE" 

REM 



IF 


X (3) 


> 


= THR 


THEN 


GOTO 


2000 


IF 


X (4) 


> 


= THR 


THEN 


GOTO 


3000 


IF 


X (1) 


> 


= THR 


THEN 


GOTO 


4000 


IF 


X (2) 


> 


= THR 


THEN 


GOTO 


5000 


GOTO 290 










REM 






- 







64 



2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 



REM "UP DRIVE SUBROUTINE" 

REM 

REM "INITIALIZE VALUES" 

REM "TO BE USED IN" 

REM "SUBROUTINE" 

REM 

LI = M + 5: 

L2 = M + 6: 

L3 = M + 7: 

L4 = M + 8: 

L5 = M + 7: 

L6 = M + 3 
REM 

REM "DETERMINE IF ARM" 

REM "IS AGAINST UPPER" 

REM "LIMIT SWITCH OR IF" 

REM "UPPER SENSOR IS" 

REM "STILL ABOVE THRES-" 

REM "HOLD VALUE" 

REM 

'Y1 = PEEK (L5) : 

Y1 = PEEK <L5) : 

Y2 = PEEK <L6> : 

Y2 = PEEK (L6) 

REM 

REM "IF SWITCH DEPRESSED" 

REM "OR IF SENSOR BELOW" 

REM "THRESHOLD RETURN TO" 

REM "MAIN LOOP" 

REM 

IF <Y1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 

REM 

REM "PLUG IN (POKE) " 

REM "VALUES FOR FIRST" 

REM "TWO 0.9 DEG. STEPS" 

REM 

POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,LD 
REM 

REM "RECHECK LIMIT" 

REM "SWITCH AND SENSOR" 

REM "VALUES" 

REM 

Y 1 = PEEK <L5) : 

Y 1 = PEEK (L5) : 
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2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 



Y2 = 


PEEK <L6): 




Y2 = 


PEEK (L6) 




IF <Y1 > = CO) OR 


( Y2 < 


REM 






REM 


"MOTOR SETPS 


THREE" 


REM 


"AND FOUR" 




REM 






POKE 


li,lo: 




POKE 


L2,HI: 




POKE 


L3, LO: 




POKE 


L4,L0 




POKE 


L1,L0: 




POKE 


L2,HI: 




POKE 


L3,L0: 




POKE 


L4, HI 




REM 






REM 


"RECHECK THRESHOLD" 


REM 


"VALUES" 




REM 






Y 1 = 


PEEK (L5): 




Y 1 = 


PEEK (L5) : 




Y2 = 


PEEK (L6) : 




Y2 = 


PEEK (L6) 




IF ( Y1 > = CO) OR 


( Y2 < 


REM 






REM 


“MOTOR STEPS 


FIVE" 


REM 


"AND SIX" 




REM 






POKE 


L1,L0: 




POKE 


L2,L0: 




POKE 


L3,L0: 




POKE 


L4, HI 




POKE 


LI, Hi: 




POKE 


L2,L0: 




POKE 


L3,L0: 




POKE 


L4, HI 




REM 






REM 


"RECHECK THRESHOLD" 


REM 


"VALUES" 




REM 






Y 1 = 


PEEK (L5) : 




Y 1 = 


PEEK (L5) : 




Y2 = 


PEEK (L6) : 




Y2 = 


PEEK (L6) 




IF (Y1 > = CO) OR 


( Y2 < 


REM 






REM 


"MOTOR STEPS 


SEVEN" 


REM 


"AND EIGHT" 




REM 






POKE 


LI, hi: 




POKE 


L2,L0: 





THR) THEN SOTO 280 



THR) THEN GOTO 280 



THR) THEN SOTO 280 
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2660 

2670 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 



POKE L3,L0: 

POKE L4,L0 
POKE LI, Hi: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
GOTO 2060 

REM "DOWN DRIVE ROUTINE" 

REM 

REM "INITIALIZE VALUES" 

REM "TO BE USED IN" 

REM "SUBROUTINE" 

REM 

LI = M + 5: 

L2 = M + 6: 

L3 = M + 7: 

L4 = M + 8: 

L5 = M + 8: 

L6 = M + 4 
REM 

REM "DETERMINE IF ARM" 

REM “IS AGAINST DOWN" 

REM "LIMIT SWITCH OR IF" 

REM "DOWN SENSOR IS" 

REM "STILL ABOVE THRES-" 

REM "HOLD VALUE" 

REM 

VI = PEEK <L5> : 

Y 1 = PEEK (L5) : 

Y2 = PEEK (L6) : 

Y2 = PEEK (L6) 

REM 

REM "IF SWITCH DEPRESSED" 

REM “OR IF SENSOR BELOW" 

REM "THRESHOLD RETURN TO" 

REM "MAIN LOOP" 

REM 

IF (Y1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 

REM 

REM "PLUG IN (POKE)" 

REM "VALUES FOR FIRST" 

REM "TWO 0.9 DEG. STEPS" 

REM 

POKE LI, Hi: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4,L0 
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3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 



REM 

REM " RECHECK LIMIT" 

REM "SWITCH AND SENSOR" 

REM "VALUES" 

REM 

Y 1 = PEEK (L5) : 

Y 1 = PEEK <L5>: 

Y2 = PEEK (L6) : 

Y2 = PEEK (L6) 

IF ( Y1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 
REM 

REM "MOTOR STEPS THREE" 

REM "AND FOUR" 

REM 

POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
POKE L1,L0: 

POKE L2,L0J 
POKE L3,L0: 

POKE L4, HI 
REM 

REM "RECHECK THRESHOLD" 

REM "VALUES" 

REM 

Y1 = PEEK (L5) : 

Y1 = PEEK (L5) I 
Y2 = PEEK <L6) : 

Y2 = PEEK <L6) 

IF ( Y1 > = CO) OR <Y2 < = THR) THEN GOTO 280 

REM 

REM "MOTOR STEPS FIVE" 

REM "AND SIX" 

REM 

POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 
POKE L1,L0I 
POKE L2,HI: 

POKE L3,L0: 

POKE L4,L0 
REM 

REM " RECHECK THRESHOLD" 

REM "VALUES" 

REM 

Y 1 = PEEK <L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK (L6) : 

Y2 = PEEK <L6) 
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3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 



IF < Y 1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 
REM 

REM “MOTOR STEPS SEVEN" 

REM "AND EIGHT" 

REM 

POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,L0 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
GOTO 3060 

REM “EAST DRIVE ROUTINE" 

REM 

REM "INITIALIZE VALUES" 

REM “TO BE USED IN" 

REM "SUBROUTINE" 

REM 

LI = M + l: 

L2 = M + 2: 

L3 = M + 3: 

L4 ■ M + 4: 

L5 = M + 5: 

L6 = M + 1 
REM 

REM "DETERMINE IF ARM" 

REM "IS AGAINST EAST" 

REM "LIMIT SWITCH OR IF" 

REM "EAST SENSOR IS" 

REM "STILL ABOVE THRES-" 

REM "HOLD VALUE" 

REM 

Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK (L6) : 

Y2 = PEEK (L6) 

REM 

REM "IF SWITCH DEPRESSED" 

REM "OR IF SENSOR BELOW" 

REM "THRESHOLD RETURN TO" 

REM "MAIN LOOP" 

REM 

IF ( Y1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 
REM 

REM "PLUG IN (POKE)" 

REM "VALUES FOR FIRST" 

REM "TWO 0.9 DEG. STEPS" 

REM 

POKE LI, Hi: 
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4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 



POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4,L0 
REM 

REM “ RECHECK LIMIT" 

REM "SWITCH AND SENSOR" 

REM "VALUES" 

REM 

Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK <L6>: 

Y2 = PEEK (L6) 

IF <Y1 > = CO) OR <Y2 < = THR) THEN GOTO 280 

REM 

REM "MOTOR STEPS THREE" 

REM "AND FOUR" 

REM 

POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
REM 

REM "RECHECK THRESHOLD" 

REM "VALUES" 

REM 

Y1 = PEEK <L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK (L6) *. 

Y2 = PEEK (L6) 

IF <Y1 > = CO) OR <Y2 < = THR) THEN GOTO 280 

REM 

REM "MOTOR STEPS FIVE" 

REM "AND SIX" 

REM 

POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4,L0 
REM 
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4560 

4570 

4580 

4570 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 



REM ” RECHECK THRESHOLD" 

REM "VALUES" 

REM 

Y 1 = PEEK <L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK <L6>: 

Y2 = PEEK (L6) 

IF ( Y1 > = CO) OR <Y2 < = THR) THEN GOTO 280 

REM 

REM "MOTOR STEPS SEVEN" 

REM "AND EIGHT" 

REM 

POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,L0 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
GOTO 4060 

REM "WEST DRIVE ROUTINE" 

REM 

REM "INITIALIZE VALUES" 

REM "TO BE USED IN" 

REM "SUBROUTINE" 

REM 

LI = M + 1: 

L2 = M + 2: 

L3 = M + 3: 

L4 = M + 4: 

L5 = M + 6: 

L6 = M + 2 
REM 

REM "DETERMINE IF ARM" 

REM "IS AGAINST WEST" 

REM "LIMIT SWITCH OR IF" 

REM "WEST SENSOR IS" 

REM "STILL ABOVE THRES-" 

REM "HOLD VALUE" 

REM 

Y 1 = PEEK (L5) I 
Y 1 = PEEK (L5) : 

Y2 = PEEK <L6> : 

Y2 = PEEK (L6) 

REM 

REM "IF SWITCH DEPRESSED" 

REM "OR IF SENSOR BELOW" 

REM "THRESHOLD RETURN TO" 

REM "MAIN LOOP" 

REM 
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CO) OR <Y2 < 



THR) THEN GOTO 280 



5220 

5230 

5240 

5250 

5260 

5270 

5280 



5290 



5300 

5310 

5320 

5330 

5340 

5350 



5360 

5370 

5380 

5390 

5400 

5410 



5420 



5430 

5440 

5450 

5460 

5470 



5480 

5490 

5500 

5510 

5520 

5530 



IF ( Y 1 > = 

REM 

REM "PLUG IN (POKE)" 

REM "VALUES FOR FIRST" 

REM "TWO 0.9 DEG. STEPS" 

REM 

POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
POKE L1,L0: 

POKE L2,HI: 

POKE L3, HI : 

POKE L4,L0 
REM 

REM "RECHECK LIMIT" 

REM "SWITCH AND SENSOR" 

REM "VALUES" 

REM 

Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK (L6) : 

Y2 = PEEK (L6) 

IF <Y1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 

REM 

REM "MOTOR SETPS THREE" 

REM "AND FOUR" 

REM 

POKE L1,L0I 
POKE L2,HI: 

POKE L3,L0: 

POKE L4,L0 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 
REM 

REM "RECHECK THRESHOLD" 

REM "VALUES" 

REM 

Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK (L6) : 

Y2 = - PEEK (L6) 

IF <Y1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 

REM 

REM “MOTOR STEPS FIVE" 

REM "AND SIX" 

REM 

POKE L1,L0; 

POKE L2,L0: 
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5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 



POKE L3,L0: 

POKE L4, HI 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
REM 

REM “ RECHECK THRESHOLD" 

REM "VALUES" 

REM 

Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) : 

Y2 = PEEK <L6) : 

Y2 = PEEK (L6) 

IF ( Y1 > = CO) OR ( Y2 < = THR) THEN GOTO 280 

REM 

REM "MOTOR STEPS SEVEN" 

REM "AND EIGHT" 

REM 

POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4,L0 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
GOTO 5060 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

341 

342 

343 

344 

345 

346 

347 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 



APPENDIX B 



MAIN SUN TRACKING PROGRAM 



REM **************************************** 

REM ** THE FOLLOWING IS A PROGRAM FOR SUN ** 

REM ** TRACKING. IT CONSISTS OF FOUR MAIN ** 

REM ** PARTS. (1) A SYSTEM CALIBRATION ** 

REM ** ROUTINE (2) A SUN LOCATION ROUTINE ** 

REM ** (3) A SUN TRACKING ROUTINE (4) AND ** 

REM ** A CLOUD COVER WAIT ROUTINE. ** 

REM **************************************** 

REM 

REM 

REM **************************************** 

REM *** CALIBRATION ROUTINE *** 

REM **************************************** 

REM 

REM 

REM *** CLEAR SCREEN *** 

HOME 

REM 

REM *** PRINT HEADER ON SCREEN *** 

REM 

VTAB 2: PRINT "THE NUMBER OF 0.9 DEG. STEPS REQUIRED" 
VTAB 3: PRINT "TO DRIVE THE SYSTEM THROUGH A COMPLETE" 
VTAB 4: PRINT "HORIZONTAL OR VERTICAL TRANSITION ARE" 
VTAB 5: PRINT "COUNTED AND USED TO DETERMINE TRACKING" 
VTAB 6: PRINT "POSITION, AND CHECK SYSTEM CALIBRATION" 
REM 

REM *** DUE TO GEARING DOWN OF *** 

REM *** THE DRIVE MOTORS APPROX *** 

REM *** 500 0.9DEG STEPS ARE *** 

REM *** REQUIRED TO TRANSITION 90 *** 

REM *** DEGREES. *** 

REM 

REM 

REM *** CALCULATE MEMORY LOCATION *** 

REM *** POINTER FOR A/D CARD. *** 

REM 

M = 49280 + (4 * 16) 

REM 

REM *** SET VALUE TO DETERMINE IF *** 

REM *** LIMIT SWITCH IS DEPRESSED *** 

REM 

CO .= 160 
REM 
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460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 



REM *** SET VALUES FOR STEP POKES *** 

REM *** TO A/D CARD, 127=0V 255=5V *** 

REM 

HI = 255 
LO = 127 
REM 

REM *** INITIALIZE COUNTERS TO BE *** 

REM *** USED IN SUN LOCATION RTN. *** 

REM 

AB = 0 : AC = O 
REM 

REM *** THESE TWO CALLS INITIALIZE*** 

REM *** THE SEEKER BY PLACING IT *** 

REM *** IN AN UPRIGHT EAST FACING *** 

REM *** POSITION *** 

REM 

VTAB 8: PRINT "PLACE IN UPRIGHT POSITION" 
REM 

REM *** PASS TO DRIVE ROUTINES THE*** 



REM *** MEMORY LOCATIONS OF THE *** 
REM *** A/D CARD TO POKE STEP *** 
REM *** VALUES TO (L1-L4) . ALSO *** 
REM *** MEMORY LOCATION OF LIMIT *** 
REM *** SWITCH TO CHECK FOR *** 



REM *** DEPRESSION AT END OF RUN *** 
REM *** (L5) , AND PASS VALUE TO *** 
REM *** TO TELL ROUTINE IF IT IS *** 
REM *** DRIVING UP OR EAST (L6> *** 

REM 

LI = M + 5: 

L2 = M + 6: 

L3 = M + 7: 

L4 = M + 8: 

L5 = M + 8: 

L6 = 1 
GOTO 1810 
REM 

REM *** DRIVE TO EAST. L1-L6 SAME *** 
REM *** USE AS ABOVE. *** 

REM 

VTAB 8: PRINT "SET FACING EAST 
LI = M + l: 

L2 = M + 2: 

L3 = M + 3: 

L4 = M + 4: 

L5 = M + 5: 

L6 = 2 
GOTO 1810 
REM 

REM *** THESE TWO CALLS CAUSE THE *** 
REM *** NUMBER OF STEPS FOR ONE *** 
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870 


REM 


*-** 


TRANSITION WEST AND ONE 




880 


REM 


*-*♦ 


TRANSITION TO THE DOWN 


*** 


890 


REM 




POSITION TO BE COUNTED 




900 


REM 








910 


VTAB 


[ 8: 


PRINT "WEST COUNTING RUN" 




920 


REM 








930 


REM 


-*♦-* 


EAST COUNTING RUN. PASS 


**-* 


940 


REM 


-*-*-*- 


TO DRIVE ROUTINE STEP 




950 


REM 




POKE MEMORY LOCATIONS 




960 


REM 




(L1-L4), LIMIT SWITCH <L5>*** 


970 


REM 


-*-*-* 


WHERE TO RETURN WHEN 




980 


REM 


-*-*-* 


FINISH COUNTING RUN (L6) 


*** 


990 


REM 


*-*-* 


AND INDICATOR OF WEST OR 




1000 


REM 


l *** 


• UP COUNTING RUN (L7) , 




1010 


REM 






1020 


LI 


= M 


+ 1 : 






L2 


= M 


+ 2: 






L3 


= M 


+ 3: 






L4 


= M 


+ 4: 






L5 


= M 


+ 6: 






L6 


= l: 







L7 = 200 
1030 GOTO 2320 
1040 REM 

1050 REM *** PRINT OUT NUMBER OF STEPS *** 

1060 REM *** FOR EAST TO WEST TRANS I- *** 

1070 REM *** TION (LN) , AND STEPS PER *** 

1080 REM *** DEGREE (LD) . *** 

1090 REM 

1100 VTAB 14: PRINT "LONGITUDE COUNT="LN 
1110 LD = LN / 180 
1120 REM 

1130 REM *** LIMIT SCREEN DISPLAY TO *** 
1140 REM *** TWO DECIMAL POINT ACCURACY*** 
1150 REM 

1160 LD = INT (LD * 100 + .5) / 100 

1170 VTAB 18: PRINT "STEPS/DEG. LONG= "LD • 
1180 REM 

1190 REM *** COUNTING RUN FROM UPRIGHT *** 
1200 REM *** TO DOWN POSITION *** 

1210 REM 

1220 VTAB 8: PRINT "VERT COUNTING RUN" 

1230 REM 

1240 REM *** PASS SAME INFORMATION AS *** 
1250 REM *** AS ABOVE TO DRIVE ROUTINE *** 
1260 REM 

1270 LI = M + 5: 

L2 = M + 6: 

L3 = M + 7: 

L4 = M + 8: 

L5 = M + 7: 
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1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 



L6 = 2: 

L7 = 155 
GOTO 2320 
REM 

REM *-** PRINTOUT SAME AS ABOVE *** 

REM *-*-* FOR STEPS FROM UP TO DOWN *** 

REM *-** POSITION (LT), AND STEPS **■* 

REM *** PER DEGREE (LE) . *-** 

REM 

VTAB 15: PRINT “LATITUDE COUNT ="LT 
LE = LT / 90 

LE = INT <LE * 100 + . 5) / 100 
VTAB 19: PRINT “STEPS/DEG. LAT =“LE 
REM 

REM *** THESE TWO CALLS RETURN *** 

REM *** THE SEEKER TO THE UPRIGHT *** 

REM *-** AND EAST FACING POSITION *** 

REM *-*-* BEFORE GOING TO THE SUN **-* 

REM *-*-* LOCATION ROUTINE *** 

REM 

VTAB 8*. PRINT "RETURN TO START POSITION" 

LI = M + 5: 

L2 = M + 6: 

L3 = M + 7: 

L4 = M + 8: 

L5 = M + 8*. 

L6 = 3 
GOTO 1810 
LI = M + l: 

L2 = M + 2*. 

L3 = M + 3: 

L4 = M + 4: 

L5 = M + 5: 

L6 = 4 
GOTO 1810 
HOME 
REM 

REM *** DETERMINE IF THE NUMBER *** 

REM **-* OF STEPS FOR EACH TRANS I- *** 

REM *** TION IS OUT OF LIMITS, IF *** 

REM *-** IT IS PRINT APPROPRIATE *** 

REM *** ERROR MESSAGE. *** 

REM 

IF (LN < 990) OR (LN > 1020) THEN VTAB 10: 

PRINT "HORIZONTAL PARAMETERS OUT OF RANGE": VTAB 11: 
PRINT "CHECK LIMIT SWITCH ALL I GNMENT ” : GOTO 1660 
IF (LT < 490) OR (LT > 520) THEN VTAB 12: 

PRINT "VERTICAL PARAMETERS OUT OF RANGE": VTAB 13: 
PRINT "CHECK LIMIT SWITCH ALLIGNMENT" : GOTO 1660 
GOTO 5090 
REM 
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1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 



REM *** DETERMINE IF WANT TO *** 

REM *** CONTINUE WHEN OUT OF LIMIT*** 

REM 

VTAB 15: INPUT “DO YOU WANT TO CONTINUE? (Y/N) “ ; K* 
IF K* = “N" THEN PRINT CHR* (4) ; "RUN HELLO" 

IF K* = "Y" THEN GOTO 5090 
REM 

REM *** DRIVE ROUTINE FOR EAST AND*** 



REM *** UP INITIALIZATION. *** 

REM 

REM 

REM 

REM *** CHECK LIMIT SWITCH AS *** 

REM *** DETERMINED BY L5, TO *** 

REM *** SEE IF SEEKER ARM IS *** 

REM *** AGAINST IT. IF IT IS JUMP *** 

REM *** OUT OF THE ROUTINE. *** 



REM 

Y 1 = PEEK (L5):Y1 = PEEK (L5) 

IF Y1 > CO THEN GOTO 2220 
REM 

REM *** VALUES TO POKE INTO D/A *** 

REM *** CARD MEMORY LOCATIONS *** 

REM *** (L1-L4) TO PRODUCE MOTOR *** 

REM *** STEP. REPEAT FOR 8 STEP *** 

REM *** CONTINUOUS LOOP. *** 

REM 

POKE LI, Hi: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) 

IF Y1 > CO THEN GOTO 2220 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,L0: • 

POKE L4,L0 
Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) 

IF Y1 > CO THEN GOTO 2220 
POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
Y 1 = PEEK (L5) : 

Y1 = PEEK (L5) 

IF Y1 > CO THEN GOTO 2220 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,L0: 
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2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 



GOTO 2220 



POKE L4, HI 
Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) 

IF Y1 > CO THEN 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4 , HI 
Y 1 = PEEK (L5) : 

Y 1 = PEEK (L5) 

IF Y1 > CO THEN GOTO 2220 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4,L0 
Y 1 = PEEK (l_5> : 

Y 1 = PEEK (L5) 

IF Y1 > CO THEN GOTO 2220 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4 , LO 
Y 1 = PEEK <L5) : 

Y 1 = PEEK (L5) 

IF Y1 > CO THEN GOTO 2220 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4 , LO 
REM 



REM *** RETURN TO STEP ONE *** 

REM 

GOTO 1810 
REM 

REM *-** RETURN TO THE CORECT *** 

REM *** PORTION OF THE CONTROL *** 

REM *** SECTION, AS DETERMINED *** 

REM *** BY L6 *** 

REM 

ON L6 GOTO 810,910,1490,1510 

REM 

REM 

REM *** WEST AND DOWN COUNTING *** 

REM *** DRIVE ROUTINE. *** 

REM 

REM 

REM 

REM *** INITIALIZE COUNTER (N) *** 

REM 
N = O 
REM 
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2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 



*** 



REM *** STEP ONE OF EIGHT 
REM 

POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
REM 



REM *** INCRIMENT COUNTER *** 

REM 

N = N + 1 
REM 

REM *** PRINT COUNT VALUE AND *** 

REM *** ASSIGN IT TO CORRECT *** 

REM *** VARIABLE AS DETERMINED *** 

REM *** BY L7 *** 



REM 

IF L7 = 200 THEN VTAB 10: 

PRINT "HORIZCT="N:LN = N 
IF L7 = 155 THEN VTAB 12: 

PRINT '* VERTCT ="N:LT = N 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,L0 
REM 

REM *** CHECK THE LIMIT SWITCH *** 
REM *** ASSIGNED BY L5. IF THE *** 
REM *** SEEKER IS AGAINST IT EXIT *** 
REM *** THE DRIVE ROUTINE. *** 

REM *** NOTE: THE TASKS ARE DIVIDED*** 
REM *** AND ASSIGNED TO EVERY *** 

REM *** OTHER STEP FOR DRIVE SPEED*** 
REM 

Y 1 = PEEK (L5) 

Y 1 = PEEK (L5) 

IF Y1 > = CO THEN GOTO 3050 

N = N + 1 

REM 

REM *** CONTINUE FOR EIGHT STEP *** 
REM *** LOOP. *** 

REM 

POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4,L0 
N = N + 1 

IF L7 = 200 THEN VTAB 10: 

PRINT " HORI ZCT='*N: LN = N 
IF L7 = 155 THEN VTAB 12: 

PRINT "VERTCT ="N:LT = N 
POKE L1,L0: 
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2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 



POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 
Y1 = PEEK (L5) 

Y 1 = PEEK (L5) 

IF Y1 > = CO THEN GOTO 3050 

N = N + 1 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
N = N + 1 

IF L7 = 200 THEN VTAB 10: 

PRINT ,, HORIZCT=”N:LN = N 
IF L7 = 155 THEN VTAB 12: 

PRINT " VERTCT = “N: LT = N 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
Y 1 = PEEK (L5) 

Y 1 = PEEK (L5) 

IF Y1 > = CO THEN GOTO 3050 

N = N + 1 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4,L0 
N = N + 1 

IF L7 = 200 THEN VTAB 10: 

PRINT ,, HORIZCT= ,, N:LN = N 
IF L7 = 155 THEN VTAB 12: 

PRINT “VERTCT ="N.*LT = N 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
Y 1 = PEEK (L5) 

Y 1 = PEEK <L5) 

IF Y1 > = CO THEN GOTO 3050 

N = N + 1 

REM 

REM *-*-* RETURN TO STEP ONE 
REM 

GOTO 2360 
REM 

REM *** WHEN WEST COUNTING RUN 
REM *** COMPLETE SWITCH TO DOWN 
REM *-** COUNTING RUN. WHEN COUNT 
REM *** RUNS COMPLETE RETURN TO 
REM *-*-* EAST/UP START POSITION 



-*-*-* 



-a--*-* 

*** 

*** 
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3040 

3050 

5000 

5005 

5010 

5015 

5020 

5025 

5030 

5035 

5040 

5045 

5050 

5055 

5060 

5065 

5070 

5075 

5080 

5085 

5090 

5095 

5100 

5105 

5110 

5115 

5120 

5125 

5130 

5135 

5140 

5145 

5150 

5155 

5160 

5165 

5168 

5170 

5175 

5180 

5185 

5190 

5195 

5200 

5205 

5210 

5215 



REM 

ON L6 GOTO 1100,1350 

REM 

REM 

REM **************************************** 

REM ** SUN LOCATION ROUTINE ** 

REM **************************************** 

REM 

REM 

REM ***' THIS ROUTINE LOCATES THE **~* 

REM ■*■** SUN IN A GENERAL AREA AND *-** 

REM *** PASSES CONTROL TO THE SUN *** 

REM *** TRACKING ROUTINE FOR FINE *** 

REM *** ADJUSTING AND LOCK ON *-** 

REM *** FOLLOWING. *** 

REM 

REM 

REM 

REM *** INITIALIZE COUNTERS *** 

REM 

DH = 0 
Z = 0 
G = 0 
C2 = 0 
HOME 
REM 

REM *** IF FAIL TO LOCATE THE SUN *** 

REM *** AFTER TWO TRYS GO TO *** 

REM *** ERROR MESSAGE. *** 

REM 

IF AB = 2 GOTO 6025 
AB = AB + 1 

VTAB 2: PRINT "THIS ROUTINE FINDS THE SUN’S POSITION" 
VTAB 3: PRINT "AND PASSES CONTROL TO SUN TRACKING" 
VTAB 4: PRINT "ROUTINES" 

REM 

REM *** A/D CARD MEMORY LOCA- *** 

REM *** TIONS FOR DRIVE STEPS *** 

REM 

LI = M + i: 

L2 = M + 2: 

L3 = M + 3: 

L4 = M + 4 
REM 

REM *•*•* CHECK UPSENSOR VALUE IF *** 

REM *-*-* GREATER THAN CUTOFF VALUE *** 

REM -*-*-* GO TO SUN LOCATION LOGIC *** 

REM *** IF NOT CONTINUE TO LOOP *** 

REM 

C2 = PEEK (M + 3) : 
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5220 

5225 

5230 

5235 

5240 

5245 

5250 

5255 

5260 

5265 

5270 

5275 

5280 

5285 

5290 

5295 

5300 

5305 

5310 

5315 

5320 

5325 

5330 

5335 

5340 

5345 

5350 

5355 

5360 

5365 

5370 

5375 

5380 

5385 

5390 

5395 

5400 

5405 

5410 

5415 

5420 

5425 



C2 = PEEK <M + 3) 

IF C2 > =130 THEN GOTO 5250 

VTAB 6: PRINT ,, US= ,, C2 
GOTO 5215 
REM 

REM -*-** SUN LOCATION LOGIC *-*-* 

REM 

VTAB 9: PRINT "EAST=0 DEG: S0UTH=90 DEG:WEST=180 DEG 
REM 

REM -*** FIRST STEP ■**■* 

REM 

POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
REM 

REM *** CHECK UPSENSOR (C2) , AND *** 

REM *** WEST LIMIT SWITCH <LW) , *■** 

REM *■*■* VALUES. 

REM 

C2 = PEEK (M + 3): 

C2 = PEEK (M + 3) 

LW = PEEK (M + 6): 

LW = PEEK (M + 6) 

REM 

REM *-** PRINT UPSENSOR VALUE ON *■*■* 

REM *** SCREEN, ENSURE SUN BRIGHT *** 

REM ENOUGH <C2>131>, THAT ARM 

REM *** IS NOT AGAINST WEST LIMIT *■** 

REM *** SWITCH <LW< 160) , AND *■** 

REM **-* INCRIMENT DEGREES HORIZ. *-*-* 

REM -*■»•* COUNTER (DH) *-*-* 

REM 

VTAB 6: PRINT "UPSENSOR READING ="C2 

IF C2 < 131 THEN GOTO 5945 

IF LW > 160 THEN GOTO 5985 

DH = DH + 1 

REM 

REM ■*■** SECOND STEP *** 

REM 

POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,L0 
REM 

REM *** IF OF UPSENSOR OBTAINED *** 

REM *** THIS TIME <C2> IS GREATER *** 

REM *** THAN THE VALUE OBTAINED *-*-* 

REM *** LAST TIME (Cl), ZERO THE *** 

REM *** COUNTER BECAUSE STILL- 

REM *** HEADING TOWARD THE SUN **-* 
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5430 

5435 

5440 

5445 

5450 

5455 

5460 

5465 

5470 

5475 

5480 

5485 

5490 

5495 

5500 

5505 

5510 

5515 

5520 

5525 

5530 

5535 

5540 

5545 

5550 

5555 

5560 

5565 

5570 

5575 

5580 

5585 

5590 

5595 

5600 

5605 

5610 

5615 

5620 

5625 

5630 

5635 

5640 

5645 

5650 

5655 



REM 

IF C2 > Cl THEN Z = 0:G = 0 
REM 

REM *** IF CURRENT VALUE LESS *** 

REM *** THAN LAST VALUE INCRIMENT *** 

REM *** COUNTER (Z) , AND STEPS *** 

REM *** TAKEN SINCE MAX VALUE *** 

REM *** COUNTER (G) . *** 

REM 

IF C2 < Cl THEN Z=Z+l:G=G+2 
REM 

REM *** CONTINUE COUNTING STEPS *** 

REM *** SINCE PASSED MAX VALUE *** 

REM *** OF UPSENSOR. *** 



REM 

IF (C2 = Cl) AND <Z > O) THEN G = G + 2 
REM 

REM *** REPLACE PREVIOUS READING *** 
REM *** WITH CURRENT READING FOR *** 



REM *** NEXT CHECK. *** 

REM 

Cl = C2 
REM 

REM *** IF CURRENT READING WAS *** 
REM *** LESS THAN PREVIOUS READING*** 
REM *** FOR THREE CONSECUTIVE *** 

REM *** CHECKS, THEN ARE GOING *** 
REM *** AWAY FROM SUN. GO BACK TO *** 
REM *** WHERE FIRST C2<C1 OCCURED *** 
REM *** (G) STEPS AGO. *** 

REM 

IF Z = 3 THEN AB = O: GOTO 6090 
REM 

REM *** INCRIMENT DEGREES HORIZ. *** 



REM *** COUNTER (DH) . REPEAT ABOVE*** 
REM *** LOGIC ON ALTERNATE STEP *** 
REM *** BASIS FOR REMAINING STEPS *** 
REM *** OF EIGHT STEP DRIVE LOOP *** 
REM 

DH = DH + 1 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4,L0 

C2 = PEEK <M + 3): 

C2 = PEEK <M + 3) 

LW = PEEK <M + 6) : 

LW = PEEK <M + 6) 

VTAB 6: PRINT "UPSENSOR READING ="C2 
IF C2 < 131 THEN GOTO 5945 
IF LW > 160 THEN GOTO 5985 
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5660 

5665 

5670 

5675 

5680 

5685 

5690 

5695 

5700 

5705 

5710 

5715 

5720 

5725 

5730 

5735 

5740 

5745 

5750 

5755 

5760 

5765 

5770 

5775 

5780 

5785 

5790 

5795 

5800 

5805 

5810 

5815 

5820 

5825 

5830 



0: G = 0 
Z + 1 : G = 6 
THEN G 



(Z > 0) 



+ 2 
= G 



XI = DH / LD 
DH = DH + 1 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 
IF C2 > Cl THEN Z 
IF C2 < Cl THEN Z 
IF (C2 = Cl) AND 
Cl = C2 

IF Z = 3 THEN AB = O: 

DH = DH + 1 
REM 

REM *-** SET UP FOR DEGREES LONG. **-* 
REM **-* PRINTOUT WITH ONE DECIMAL *-*-* 
REM *-*-* PLACE ACCURACY. *** 

REM 

/ 10 



GOTO 6090 



XI = 


INT (XI 


* 


10 + .5) 


POKE 


L1,L0: 








POKE 


L2,L0: 








POKE 


L3,L0: 








POKE 


L4, HI 








C2 = 


PEEK 


(M 


+ 


3) : 


C2 = 


PEEK 


(M 


+ 


3) 


LW = 


PEEK 


(M 


+ 


6) : 


LW = 


PEEK 


(M 


+ 


6) 


VTAB 


6: PRINT 


"UPSENSOR 



131 THEN GOTO 5945 
160 THEN GOTO 5985 
PRINT "DEGREES LONGITUDE =' 
+ 1 



IF C2 < 

IF LW > 

VTAB 8: 

DH = DH 
POKE LI, HI! 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
IF C2 > Cl THEN Z 
IF C2 < Cl THEN Z 
IF (C2 = Cl) AND 



XI 



= 0:G = O 



(Z 



+ 1 : G = 
O) THEN 



+ 2 
= G + 



Cl = C2 

IF Z = 3 THEN AB = O: 
DH = DH + 1 
POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4,L0 



GOTO 6090 



C2 = 
C2 = 
LW = 
LW = 
VTAB • i 
IF C2 



PEEK 

PEEK 

PEEK 

PEEK 



<M 

(M 

<M 

(M 



3) : 
3) 
6 ) : 
6 ) 



PRINT “UPSENSOR READING ="C2 
131 THEN GOTO 5945 
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5835 

5840 

5845 

5850 

5855 

5860 

5865 

5870 

5875 

5880 

5885 

5890 

5895 

5900 

5905 

5910 

5915 

5920 

5925 

5930 

5935 

5940 

5945 

5950 

5955 

5960 

5965 

5970 

5975 

5980 

5985 

5990 

5995 

6000 

6005 

6010 

6015 

6020 

6025 

6030 

6035 



IF LW > 160 THEN GOTO 5985 
DH = DH + 1 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 

IF C2 > Cl THEN Z = 0:G = O 
IF C2 < Cl THEN Z=Z+l:G=G+2 
IF (C2 = Cl) AND (Z > O) THEN G = G + 2 
Cl = C2 

IF Z = 3 THEN AB = 3: GOTO 6090 

DH = DH + 1 

REM 



REM *** RETURN TO STEP ONE *** 

REM 

GOTO 5270 
REM 

REM *** IF UPSENSOR GOES BELOW *** 
REM *** THRESHOLD RETURN TO START *** 
REM *** POSITION. USE FLASHING *** 
REM *** MESSAGE. REZERO COUNTER *** 
REM *** (AB) SINCE SUN LOSS DUE *** 
REM *** TO CLOUD COVER IN NORMAL *** 
REM *** OCCUR ANCE. *** 

REM 

VTAB 12: FLASH : 



PRINT "SUN INTENSITY BELOW THRESHOLD VALUE": 

VTAB 13: PRINT "RETURNING TO START UP POSITION": 

NORMAL : AB = O: GOTO 1470 

REM 

REM *** IF TRANSITION FROM EAST TO*** 

REM *** WEST WITHOUT ACHIEVING *** 

REM *** LOCKON, RETURN TO STARTUP *** 

REM *** POSITION, BUT DO NOT RESET*** 

REM *** COUNTER (AB) . *** 

REM 

VTAB 12: FLASH : 

PRINT "REACHED WEST LIMIT WITHOUT FINDING": 

VTAB 13: PRINT "ACCEPTABLE LOCK ON CRITERIA, RESET": 

NORMAL : GOTO 1470 

REM 

REM *** IF FAIL TO FIND SUN AFTER *** 



REM *** TWO EAST TO WEST TRYS, *** 
REM *** PRINT ERROR MESSAGE AND *** 
REM *** DETERMINE IF WANT TO *** 
REM *** CONTINUE TRYING. *** 
REM 

VTAB 16: FLASH : 



PRINT "UNABLE TO LOCATE SUN LONGITUDE" 

VTAB 17: PRINT "AFTER TWO TRYS. SUN PROBABLY" 
VTAB 18: PRINT "SETTING TOO FAR WEST": NORMAL 
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6040 VTAB 20: INPUT "WANT TO TRY AGAIN ( Y/N) ?"; K* 

6045 IF k$ = "Y" THEN AB = 0: HOME : GOTO 1460 
6050 IF K* = "N" THEN PRINT CHRS (4) ; "RUN HELLO" 
6055 REM 

6060 REM **-* BACKUP STEP SEQUENCE *** 

6065 REM 

6070 REM -*** RETURN TO POSITION WHERE *** 

6075 REM -**-* SUN INTENSITY FIRST BEGAN **-* 

6080 REM *-** TO DROP OFF (G) STEPS AGO **-* 

6085 REM 

6090 POKE LI, Hi: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
6095 GOSUB 6205 
6100 POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4,L0 
6105 GOSUB 6205 
6110 POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
6115 GOSUB 6205 
6120 POKE L1,L0: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 
6125 GOSUB 6205 
6130 POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 
6135 GOSUB 6205 
6140 POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4,L0 
6145 GOSUB 6205 
6150 POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,L0 
6155 GOSUB 6205 
6160 POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
6165 GOSUB 6205 
6170 GOTO 6090 
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6175 

6180 

6185 

6190 

6195 

6200 

6205 

6210 

6215 

6220 

6225 

6230 

6235 

6240 

6245 

6250 

6255 

6260 

6265 

6270 

6275 

6280 

6285 

6290 

6295 

6300 

6305 

6310 

6315 

6320 

6325 

6330 

6335 

6340 

6345 

6350 

6355 

6360 

6365 

6370 

6375 

6380 

6385 

6390 

6395 



REM 

REM *-** SUBROUTINE TO DECRIMENT 
REM -*■** (G) COUNTER, AND DEGREES 
REM *** HORIZONTAL COUNT AS 
REM ■*■** BACKUP. 




REM 

IF G = O THEN AC = O: GOTO 6260 
G = G - 1 
DH = DH - 1 
RETURN . 

REM 

REM -*-** THIS PORTION OF THE SUN *-*■* 
REM *** LOCATION SECTION GETS AN 
REM *■** ELEVATION LOCKON PRIOR TO 
REM *** PASSING CONTROL TO THE *-*-* 
REM *■** TRACKING SECTION. 

REM 

DV = 0 
REM 

REM -*-** IF GO THROUGH ELEVATION 

REM *■** TRANSITION TWICE WITHOUT *-*-* 

REM -*-** ACHIEVING LOCKON, PRINT 

REM *■** ERROR MESSAGE. *-*-* 



IF AC = 2 THEN GOTO 5365 

AC = AC + 1 

HOME 

VTAB 2: PRINT "NOW LOCKING ONTO SUN’S ELEVATION" 

REM 

REM ■*** PRINT LONGITUDE VALUE *■*■* 

REM -*-** FOUND IN PREVIOUS ROUTINE 

REM ■*■** WITH ONE DECIMAL POINT 

REM -*-** ACCURACY. *** 

REM 

XI = DH / LD 

XI = INT (XI * 10 + .5) / 10 
VTAB 4: PRINT "SUN LONGITUDE ="X1 

VTAB 5: PRINT "EAST=0 DEG S0UTH=90 DEG WEST =180 DEG" 
REM 

REM *** SET MEMORY LOCATIONS FOR 
REM *** DRIVE ROUTINE. *** 

REM 

LI = M + 5: 

L2 = M + 6: 

L3 = M + 7: 

L4 = M + 8 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 
REM 



REM 
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6400 

6405 

6410 

6415 

6420 

6425 

6430 

6435 

6440 

6445 

6450 

6455 

6460 

6465 

6470 

6475 

6480 

6485 

6490 

6495 

6500 

6505 

6510 

6515 

6520 

6525 

6530 

6535 

6540 

6545 

6550 

6555 

6560 

6565 

6570 

6575 

6580 

6585 

6590 

6595 

6600 

6605 

6610 

6615 



REM *** GET VALUES OF UPSENSOR <C3) *** 

REM *** DOWN SENSOR (C4) , AND *** 

REM *** UP LIMIT SWITCH (LU) *** 

REM 

C3 = PEEK (M + 3) : 

C3 = PEEK (M + 3) 

C4 = PEEK (M + 4): 

C4 = PEEK (M + 4) 

LU = PEEK (M + 7) : 

LU = PEEK (M + 7) 

REM 

REM *** IF UPSENSOR <C3> BELOW *** 

REM *** SUNLIGHT THRESHOLD, OR HIT*** 

REM *** UPLIMIT SWITCH, EXIT DRIVE*** 

REM *** LOOP. *** 

REM 

IF C3 < 131 THEN GOTO 6920 
IF LU > 160 THEN GOTO 6950 
REM 

REM *** INCRIMENT DEGREES ELEVA- *** 

REM *** TION COUNTER <DV> *** 

REM 

DV = DV + 1 
REM 

REM *** STEP TWO *** 

REM 

POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,L0 
REM 

REM *** IF ACHIEVE BALANCE BETWEEN*** 

REM *** UPPER AND LOWER SENSOR TO *** 

REM *** WITHIN ONE UNIT, GO TO *** 

REM *** SUN TRACKING ROUTINE. *** 

REM 

IF C3 = C4 THEN GOTO 8060 

IF (C3 = C4 + 1) OR (C3 = C4 - 1) THEN GOTO 8060 

DV = DV + 1 

REM 



REM *** CALCULATE DEGREES ELEV. *** 
REM *** BY DIVIDING THE COUNTER *** 
REM *** VALUE (DV) BY STEPS PER *** 
REM *** DEGREE ELEVATION (LE) , *** 

REM *** DETERMINED IN CALIBRATION *** 
REM *** ROUTINE. REPEAT ABOVE *** 

REM *** LOGIC FOR REMAINING STEPS *** 
REM 

X2 = DV / LE 
POKE L1,L0: 

POKE L2,HI: 
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6620 

6625 

6630 

6635 

6640 

6645 

6650 

6655 

6660 

6665 

6670 

6675 

6680 

6685 

6690 

6695 

6700 

6705 

6710 

6715 

6720 

6725 

6730 

6735 

6740 

6745 

6750 

6755 

6760 

6765 

6770 



POKE L3,L0: 

POKE L4,L0 

C3 = PEEK (M + 3) : 

C3 = PEEK (li + 3) 

C4 = PEEK (M + 4): 

C4 = PEEK <M + 4) 

LU = PEEK (M + 7) : 

LU = PEEK (h + 7) 

IF C3 < 131 THEN GOTO 6920 
IF LU > 160 THEN GOTO 6950 
DV = DV + 1 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 

IF C3 = C4 THEN GOTO 8060 

IF <C3 = C4 + 1) OR <C3 = C4 - 1) THEN GOTO 8060 
DV = DV + 1 

X2 = INT ( X2 * 10 + .5) / 10 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 

C3 = PEEK (M + 3) : 

C3 = PEEK (M + 3) 

C4 = PEEK <M + 4) : 

C4 = PEEK <M + 4) 

LU = PEEK (M + 7) : 

LU = PEEK (M + 7) 

IF C3 < 131 THEN GOTO 6920 
IF LU > 160 THEN GOTO 6950 
DV = DV + 1 
POKE LI, HI: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4, HI 

IF C3 = C4 THEN GOTO 8060 

IF (C3 = C4 + 1) OR <C3 = C4 - 1) THEN GOTO 8060 
DV = DV + 1 
REM 

REM *** PRINT DEGREES ELEVATION 
REM *** ONLY ONCE PER EIGHT STEP 
REM *•** LOOP DUE TO SPEED 
REM *** CONSIDERATIONS. 

REM 

VTAB 7: PRINT "DEGREES ELEVATION 
POKE LI, Hi: 

POKE L2,L0: 

POKE L3,L0: 

POKE L4,L0 
C3 = PEEK (M + 3) : 



*** 

*** 

*** 

*** 

=" X2” DEG" 
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6775 

6780 

6785 

6790 

6795 

6800 

6805 

6810 

6815 

6820 

6825 

6830 

6835 

6840 

6845 

6850 

6855 

6860 

6865 

6870 

6875 

6880 

6885 

6890 

6895 

6900 

6905 

6910 

6915 

6920 

6925 

6930 

6935 

6940 

6945 

6950 



C3 = PEEK (M + 3) 

C4 = PEEK (M + 4) : 

C4 = PEEK (M + 4) 

LU = PEEK (M + 7) : 

LU = PEEK <M + 7) 

IF C3 < 131 THEN GOTO 6920 
IF LU > 160 THEN GOTO 6950 
DV = DV + 1 
POKE LI, hi: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4,L0 

IF C3 = C4 THEN GOTO 8060 

IF <C3 = C4 + 1) OR <C3 = C4 - 1) THEN GOTO 8060 



DV = DV + 1 
GOTO 6390 
REM 

REM *** PRINT ERROR MESSAGE IF *** 

REM *** HA VENT ACHIEVED LOCKON *** 

REM *** AFTER TWO ATTEMPTS, AND *** 

REM *** DETERMINE IF WANT TO *** 

REM *** CONTINUE. *** 

REM 

VTAB 16: FLASH : 



PRINT "UNABLE TO ACHIEVE SENSOR BALANCE AFTER" 

VTAB 17: 

PRINT "TWO ATTEMPTS. POSSIBLE SYSTEM PROBLEM": NORMAL 
VTAB 19: INPUT "WANT TO TRY AGAIN (Y/N) ?"; K* 

IF K$ = "Y" THEN AC = 0: HOME : GOTO 1460 
IF K $ = "N" THEN PRINT CHR* <4) ; “RUN HELLO" 

REM 

REM *** IF SUN GOES BELOW THRES- *** 

REM *** HOLD (BEHIND A CLOUD) *** 

REM *** WHILE ATTEMPTING TO LOCK *** 

REM *** ON, RETURN TO START POSIT.*** 

REM *** AND TRY AGAIN. *** 

REM 

VTAB 12: FLASH : 

PRINT "SUN INTENSITY BELOW THRESHOLD VALUE": 

VTAB 13: PRINT "RETURNING TO START UP POSITION": 

AC = 0: NORMAL : GOTO 1470 
REM 

REM *** IF REACH UPPER LIMIT *** 

REM *** SWITCH AFTER FIRST TRY, *** 

REM *** PRINT THIS MESSAGE. *** 

REM 

VTAB 12: FLASH : 

PRINT "HAVE REACHED UPPER LIMIT WITHOUT": 

VTAB 13: PRINT "ACHIEVING SENSOR BALANCE, REZEROING": 
NORMAL : GOTO 1470 
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8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 



REM 

REM *******-*************************-*-******* 

REM ** SUN TRACKING ROUTINE ** 

REM **************************************** 

REM 

REM 

HOME 

REM 

REM *** ONCE ROUGH LOCKON IS *** 

REM *** ACHIEVED BY THE PREVIOUS *** 

REM *** ROUTINE, THIS ROUTINE FINE*** 

REM *** ADJUSTS SENSOR BALANCE AND*** 

REM *** TRACKS THE SUN. *** 

REM 

REM *** INI T. OUT OF BALANCE CTRS.*** 

REM 

UN = o: 

DN = o: 

EN = o: 

WN = O 
REM 

REM *** COUNTER USED TO DETERMINE *** 

REM *** IF SENSOR UNBALANCE IS *** 

REM *** VALID OR TRANSITORY *** 

REM 
Q = 5 

VTAB 2: PRINT "SUN TRACKING ROUTINE" 

VTAB 3: PRINT "THIS ROUTINE INSURES THAT THE TRACKER" 
VTAB 4: PRINT "STAYS LOCKED ONTO THE SUN. IF A CLOUD" 
VTAB 5: PRINT "COVERS THE SUN, CONTROL IS PASSED TO" 
VTAB 6: PRINT "THE CLOUD COVER WAIT ROUTINE UNTIL" 
VTAB 7: PRINT "THE SUN REAPPEARS" 

REM 

REM *** GET VALUES OF ALL SENSORS *** 

REM *** AND LIMIT SWITCHES. *** 

REM 



US 


= 


PEEK 


(M 


+ 


3) 


US 


= 


PEEK 


(M 


+ 


3) 


DS 


= 


PEEK 


(M 




4) 


DS 


= 


PEEK 


(M 


+ 


4) 


ES 


= 


PEEK 


(M 


+ 


1) 


ES 


= 


PEEK 


(M 


+ 


1) 


WS 


= 


PEEK 


(M 


+ 


2) 


WS 


S= 


PEEK 


(M 


+ 


2) 


UL 


= 


PEEK 


(M 


+ 


7) 


UL 


r= 


PEEK 


(M 


+ 


7) 


DL 


= 


PEEK 


(M 


+ 


8) 


DL 




PEEK 


(M 


+ 


8) 


EL 


= 


PEEK 


(M 


+ 


5) 


EL 


= 


PEEK 


<M 


+ 


5) 
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8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 

8510 

8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 

8600 

8610 

8620 

8630 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 

8730 



WL = PEEK (M + 6) : 

WL = PEEK (M + 6) 

REM 

REM *** IF UUPSENSOR GOES BELOW *** 

REM *** THRESHOLD GO TO CLOUD *** 

REM *** WAIT ROUTINE. IF HIT LIMIT*** 
REM *** SWITCH, GO TO APPROPRIATE *** 
REM *** NOTIFICATION MESSAGE *** 

REM 

131 THEN 
160 THEN 
160 THEN 
160 THEN 
160 THEN 



< 

> 

> 

> 

> 



GOTO 11090 
GOTO 9220 
GOTO 9270 
GOTO 9320 
GOTO 9370 



IF US 
IF UL 
IF DL 
IF EL 
IF WL 
REM 

REM *** IF UPPER/LOWER OR EAST/ *** 
REM *** WEST SENSORS ARE IN *** 

REM *** BALANCE, ZERO APPROPRIATE *** 
REM *** UNBALANCE COUNTER. *** 

REM 

IF US = DS THEN UN = 0:DN = 0 
IF ES = WS THEN EN = 0 : WN = 0 
REM 

REM *** IF SENSOR PAIRS ARE OUT OF*** 
REM *** BALANCE INCRIMENT PROPER *** 
REM *** UNLBALANCE COUNTER. *** 

REM 
IF US 
IF DS 



> 

> 



DS THEN UN = UN 

US THEN DN = DN 

IF ES > WS THEN EN = EN 

IF WS > ES THEN WN = WN 



REM 

REM *** SYSTEM OPERATION OUTPUTS 
REM 

VTAB 17: PRINT "UN="UN" DN="DN" EN="EN" WN= 
L5="L5" 

8740 VTAB 18: PRINT "SU^'SU" SD="SD‘ 

REM 

REM *** CHECK SENSOR OUT OF 
REM *** BALANCE COUNTERS AND GO TO*** 

REM *** APPROPRIATE DRIVE ROUTINE *** 

REM *** IF COUNTER IS ABOVE *** 

REM *** THRESHOLD VALUE (G) *** 



8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 



*** 



SE="SE " SW= 



*** 



REM 

IF UN > 

L2 = M 
L3 = M 
L4 = M 
L5 = 1 : 
GOTO 9480 
IF DN > = 



= Q THEN LI = 
6 : 

7: 

8 : 



M 



5: 



= M + 5: 
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"WN" 

"SW 



8830 



Q THEN LI 



8840 

8850 

8860 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

8970 

8980 

8990 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 



L2 = M + 6: 

L3 = M + 7: 

L4 = M + 8: 

L5 = l: 

GOTO 10380 

IF EN > = Q THEN LI = M + 1: 

L2 = M + 2: 

L3 = M + 3: 

L4 = M + 4: 

L5 = 2: 

GOTO 10380 

IF WN > = Q THEN LI = M + 1: 

L2 = M + 2: 

L3 = M + 3: 

L4 = li + 4: 

L5 = 2: 

GOTO 9480 
REM 

REM *** PUT SENSOR VALUES ON *** 

REM *** SCREEN *** 

REM 

VTAB 9: PRINT TAB ( 15) "US="US 

VTAB 10: PRINT TAB < 12) "WS="WS" ES="ES 

VTAB 11: PRINT TAB ( 15) "DS= ,, DS 

REM 

REM *** CONTINUE LOOP *** 

REM 

GOTO 8330 
REM 

REM *** PRINT DEGREES LONGITUDE *** 

REM *** AND ELEVATION VALUES WHEN *** 

REM *** RETURN FROM DRIVE ROUTINES*** 

REM *** ONLY, SO LOGIC LOOP IS NOT*** 

REM *** SLOWED DOWN BY UNNECESSARY*** 

REM *** PRINT STATEMENTS. *** 

REM 

XI = DH / LD 

XI = INT (XI * 10 + .5) / 10 

VTAB 14: PRINT "DEGREES LONGITUDE ="X1" DEG" 
X2 = DV / LE 

X2 = INT ( X2 * 10 + .5) / 10 

VTAB 15: PRINT "DEGREES ELEVATION = ,, X2“ DEG" 
REM 

REM *** RETURN TO LOGIC LOOP AFTER*** 

REM *** PRINT OUT. *** 

REM 

GOTO 8330 
REM 

REM *** LIMIT SWITCH DEPRESSION *** 

REM *** MESSAGES PRINTED WHEN HIT *** 

REM ***' LIMIT SWITCH WHILE IN *** 
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9200 REM *** TRACKING MODE. *** 

9210 REM 

9220 VTAB 17: FLASH : PRINT “HAVE REACHED UPPER LIMIT, 
CHECK SYSYTEM" 

9230 VTAB 18: PRINT "ALLIGNMENT TO TRUE EAST": NORMAL 
9240 VTAB 19: INPUT "WANT TO RERUN (Y/N) K$ 

9250 IF K$ = "Y" THEN HOME : GOTO 1460 

9260 IF K* = "N" THEN PRINT CHRS (4) ; "RUN HELLO" 

9270 VTAB 17: FLASH : PRINT "HAVE REACHED DOWN LIMIT, MOST 
PROBABLE" 

9280 VTAB 18: PRINT "SUNSET OR MISALL IGNMENT" : NORMAL 
9290 VTAB 19: INPUT "WANT TO RERUN <Y/N)?";K* 

9300 IF K* = "Y" THEN HOME : GOTO 1460 

9310 IF K* = "N" THEN PRINT CHR* (4) ; "RUN HELLO" 

9320 VTAB 17: FLASH : PRINT "HAVE REACHED EAST LIMIT, MOST 
PROBABLE" 

9330 VTAB 18: PRINT "CAUSE EARLY MORNING, SUN TOO LOW": 
NORMAL 

9340 VTAB 19: INPUT "WANT TO RERUN (Y/N)?";K* 

9350 IF K* = "Y" THEN HOME : GOTO 1460 

9360 IF K$ = "N" THEN PRINT CHR* (4);" RUN HELLO" 

9370 VTAB 17: FLASH : PRINT "HAVE REACHED WEST LIMIT, MOST 
PROBABLE" 

9380 VTAB 18: PRINT “CAUSE, NEAR SUNSET": NORMAL 
9390 VTAB 19: INPUT "RERUN OR GO TO SLEEP <R/S)?";K* 

9400 IF K* = "R" THEN HOME : GOTO 1460 

9410 IF K* = "S" THEN HOME : VTAB 10: 

PRINT "THANKYOU I’M REALLY TIRED": GOTO 1460 
9420 REM 

9430 REM **-* UP/WEST DRIVE ROUTINES -*-*-* 

9440 REM 
9450 REM 

9460 REM **-* STEPS PER DRIVE ACCESS *-** 

9470 REM 
9480 CT = 2 
9490 REM 

9500 REM *-*-* GO TO DRIVE STEP ENTRY *-** 

9510 REM -**-* LOGIC STATEMENT AS DETER- *-*-* 

9520 REM *-*-* MINED BY (L5) *** 

9530 REM 

9540 IF L5 = 1 THEN GOTO 9620 

9550 IF L5 = 2 THEN GOTO 9630 

9560 REM 

9570 REM *-*-* DETERMINE PROPER STEP TO *** 

9580 REM *-** REENTER DRIVE ROUTINE TO *** 

9590 REM *-*-* PREVENT JERKY SEEKER *-** 

9600 REM *-**• MOTION WHILE TRACKING *** 

9610 REM 
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9620 


□N SU GOTO 9640,9950,10000,10050, 








10100, 10150, 10200, 10250 




9630 


ON SW GOTO 9640,9950,10000,10050, 








10100, 10150, 10200, 10250 




9640 


POKE LI, 


lo: 






POKE L2, 


LO: 






POKE L3, 


Hi: 






POKE L4, 


LO 




9650 


REM 






9660 


REM *** 


SET REENTRY STEP FOR THIS 


*** 


9670 


REM *** 


AND CORRESPONDING DRIVE 


*** 


9680 


REM *** 


LOOP IN OPPOSITE DIRECTION*** 


9690 


REM *** 


SINCE A STEP HERE CHANGES 




9700 


REM *** 


THE REENTRY POINT IN OTHER*** 


9710 


REM *** 


DRIVE LOOP. 




9720 


REM 






9730 


IF L5 = 


1 THEN SU = 2: 






> 

Q 

II 

> 

Q 


+ l:UN = 0: SD = l 




9740 


REM 






9750 


REM *** 


BESIDES DETERMINING 


*** 


9760 


REM *** 


REENTRY POINT, CHANGE 


*** 


9770 


REM *** 


DEGREE COUNTERS (DV) , (DH) 


*** 


9780 


REM *** 


AND ZERO UNBALANCE COUNTER*** 


9790 


REM *** 


(UN) , (WN) 




9800 


REM 






9810 


IF L5 = 


2 THEN SW = 2: 






DH = DH 


+ l:WN = 0: SE = 1 




9820 


REM 






9830 


REM *** 


AFTER CORRECT NUMBER OF 


*** 


9840 


REM *** 


STEPS PER DRIVER ACCESS 


-*** 


9850 


REM *** 


RETURN TO LOGIC SECTION 




9860 


REM 






9870 


IF CT = 


0 THEN GOTO 9050 




9880 


REM 






9890 


REM *** 


DECRIMENT STEPS PER ACCESS*** 


9900 


REM *** 


COUNTER. CONTINUE ABOVE 


*** 


9910 


REM *** 


LOGIC SEQUENCE FOR EIGHT 


*** 


9920 


REM *** 


STEP LOOP. 


*** 


9930 


REM 






9940 


CT = CT 


- 1 




9950 


POKE LI, 


lo: 






POKE L2, 


hi: 






POKE L3, 


hi : 






POKE L4, 


LO 




9960 


IF L5 = 


1 THEN SU = 3: 






DV = DV 


+ l:UN = 0:SD = 8 




9970 


IF L5 = 


2 THEN SW = 3: 






DH = DH 


+ 1:WN = o: SE = 8 




9980 


IF CT = 


0 THEN GOTO 9050 




9990 


CT = CT 


- 1 




10000 


POKE LI 


*4 

r 
o 
• ■ 
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10010 


POKE L2,HI: 
POKE L3,L0: 
POKE L4,L0 
IF L5 = 1 THEN 


SU = 4: 




DV = DV + 1 : UN 


= 0: SD = 7 


10020 


IF L5 = 2 THEN 


SW = 4: 




DH = DH + l:WN 


= 0: SE = 7 


10030 


IF CT = 0 THEN 


GOTO 9050 


10040 


CT = CT - 1 




10050 


POKE L1,L0: 




10060 


POKE L2,HI: 
POKE L3,L0: 
POKE L4, HI 
IF L5 = 1 THEN 


SU = 5: 




DV = DV + l:UN 


= 0: SD = 6 


10070 


IF L5 = 2 THEN 


sw = 5: 




DH = DH + l:WN 


= 0: SE = 6 


10080 


IF CT = 0 THEN 


GOTO 9050 


10090 


CT = CT - 1 




10100 


POKE L1,L0: 




10110 


POKE L2,L0: 
POKE L3,L0: 
POKE L4, HI 
IF L5 = 1 THEN 


SU = 6: 




DV = DV + l:UN 


= 0:SD = 5 


10120 


IF L5 = 2 THEN 


sw = 6: 




DH = DH + 1 : WN 


= 0:SE = 5 


10130 


IF CT = 0 THEN 


GOTO 9050 


10140 


CT = CT - 1 




10150 


POKE LI, HI: 




10160 


POKE L2,L0: 
POKE L3,L0: 
POKE L4, HI 
IF L5 = 1 THEN 


su = 7: 




DV = DV + i:un 


= 0: SD = 4 


10170 


IF L5 = 2 THEN 


sw = 7: 




z 

3 
• ■ 

iH 

+ 

X 

Q 

II 

X 

Q 


= o: SE = 4 


10180 


IF CT = 0 THEN 


GOTO 9050 


10190 


CT = CT - 1 




10200 


POKE LI, Hi: 




10210 


POKE L2,L0: 
POKE L3,L0: 
POKE L4,L0 
IF L5 = 1 THEN 


SU = 8: 




DV = DV + i:un 


= 0:SD = 3 


10220 


IF L5 = 2 THEN 


sw = 8: 




DH = DH + l:WN 


= o:se = 3 


10230 


IF CT = 0 THEN 


GOTO 9050 


10240 


CT = CT - 1 




10250 


POKE LI, HI: 






POKE L2,L0: 
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10260 



POKE L3,HI: 

POKE L4,L0 

IF L5 = 1 THEN SU = 1 : 

DV = DV + l:UN = 0:SD = 2 
10270 IF L5 = 2 THEN SW = 1 : 

DH = DH + l:WN = 0:SE = 2 
10280 IF CT = O THEN GOTO 9050 
10290 CT = CT - 1 
10300 GOTO 9640 
10310 REM 

10320 REM *** DOWN/EAST DRIVE ROUTINES *** 
10330 REM 
10340 REM 

10350 REM *** LOGIC SAME AS FOR UP/WEST *** 

10360 REM *** DRIVE ROUTINES *** 

10370 REM 
10380 CT = 2 

10390 IF L5 = 1 THEN GOTO 10410 

10400 IF L5 = 2 THEN GOTO 10420 

10410 ON SD GOTO 10430,10480,10530,10580, 
10630, 10680, 10730, 10780 
10420 ON SE GOTO 10430,10480,10530,10580, 
10630, 10680, 10730, 10780 



10430 


POKE LI, hi: 
POKE L2,L0: 
POKE L3,HI: 
POKE L4,L0 




10440 


IF L5 = 1 THEN 


SD = 2: 




DV = DV - l-.DN 


= 0: SU = 1 


10450 


IF L5 = 2 THEN 


SE = 2: 




DH = DH - l:EN 


= 0:SW = l 


10460 


IF CT = 0 THEN 


GOTO 9050 


10470 


CT = CT - 1 




10480 


POKE LI, HI: 
POKE L2,L0: 
POKE L3, LO: 
POKE L4, LO 




10490 


IF L5 = 1 THEN 


SD = 3: 




DV = DV - i:dn 


= o:SU = 8 


10500 


IF L5 = 2 THEN 


SE = 3: 




DH = DH - l:EN 


= O'.SW = 8 


10510 


IF CT = 0 THEN 


GOTO 9050 


10520 


CT = CT - 1 




10530 


POKE LI, Hi: 
POKE L2,L0: 
POKE L3,L0: 
POKE L4, HI 




10540 


IF L5 = 1 THEN 


SD = 4: 




DV = DV - 1 : DN 


= O-.SU = 7 


10550 


IF L5 = 2 THEN 


SE = 4: 




DH = DH - 1 :EN 


= o:sw = 7 
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GOTO 9050 



10560 

10570 

10580 



10590 

10600 

10610 

10620 

10630 



10640 

10650 

10660 

10670 

10680 



10690 

10700 

10710 

10720 

10730 



10740 

10750 

10760 

10770 

10780 



10790 

10800 

10810 



IF CT = 0 THEN 
CT = CT - 1 
POKE L1,L0: 

POKE L2,L0: 

POKE L3, LO: 

POKE L4, HI 
IF L5 = 1 THEN SD = 5: 

DV = DV - l:DN = o:su = 6 
IF L5 = 2 THEN SE = 5: 

DH = DH - 1 : EN = O: SW = 6 
IF CT = 0 THEN GOTO 9050 
CT = CT - 1 
POKE LI , LO: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, HI 

IF L5 = 1 THEN SD = 6: 

DV = DV - l:DN = OISU = 5 
IF L5 = 2 THEN SE = 6: 

DH = DH - l:EN = 0:SW = 5 
IF CT = O THEN GOTO 9050 
CT = CT - 1 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,L0: 

POKE L4, LO 

IF L5 = 1 THEN SD = 7: 

DV = DV - ISDN = O: SU =4 
IF L5 = 2 THEN SE = 7: 

DH = DH - 1 : EN = 0:SW = 4 
IF CT = 0 THEN GOTO 9050 
CT = CT - 1 
POKE L1,L0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4, LO 

IF L5 = 1 THEN SD = 8: 

DV = DV - ISDN = O: SU = 3 

IF L5 = 2 THEN SE = 8: 

DH = DH - 1 : EN = 0:SW = 3 

IF CT = 0 THEN GOTO 9050 
CT = CT - 1 
POKE L1,L0: 

POKE L2,L0: 

POKE L3,HI: 

POKE L4, LO 

IF L5 = 1 THEN SD = 1 : 

DV = DV - 1 : DN = 0:SU = 2 
IF L5 = 2 THEN SE = l: 

DH = DH - 1 : EN = 0:SW = 2 
IF CT = 0 THEN GOTO 9050 
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10820 

10830 

1 1 000 

11010 

11020 

1 1030 

11040 

11050 

1 1060 

11070 

1 1080 

11090 

11100 

11110 

1 1 120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

1 1250 

11260 

1 1270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11400 

11410 



CT = CT - 1 
GOTO 10430 
REM 
REM 

REM **************************************** 
REM ** CLOUD COVER ROUTINE ** 

REM 

REM *** CLEAR SCREEN AND INITIAL- *** 

REM *** IZE LOOP COUNTERS FOR *** 

REM *** TIME LOOPS. *** 

REM 

HOME 

XX = o:zz = 0 
VTAB 8: PRINT 
VTAB 10: PRINT 
VTAB 11: 

12: 

13: 

14: 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



TAB ( 5) “CLOUD COVER ROUTINE" 

"THIS ROUTINE CHECKS THE UPPER SENSOR' 
"WAITING FOR THE SUN TO COME BACK OUT' 
"IF THE SUN HAS NOT COME BACK OUT FOR' 
"APPROXIMATELY 10 MINUTES THE SYSTEM" 
"WILL AUTOMATICALLY REZERO ITSELF AND' 
"WAIT FOR THE SUNS INTENSITY TO AGAIN' 
"GO ABOVE THE THRESHOLD VALUE" 



VTAB 
VTAB 
VTAB 
VTAB 15: 

VTAB 16: 

REM 

REM *** LOOPS TO ADJUST DELAY *** 

REM *** TIMES FOR ONE SECOND CLOCK*** 
REM 
FOR 



XX = 1 TO 605 
1 TO 17 



FOR ZZ = 

REM 

REM *** CHECK UPPER SENSOR, AND *** 

REM *** DISPLAY SENSOR AND TIME *** 

REM *** DATA ON SCREEN. *** 

REM 

US = PEEK (M + 3) : 

US = PEEK (M + 3) 

VTAB 19: PRINT "UPPER SENSOR="US 

VTAB 20 : PRINT "DELAY TIME COUNTER="XX" SEC" 

REM 

REM *** IF SUN COMES BACK OUT OR *** 

REM *** REACH 10 MINUTE TIME OUT *** 

REM *** EXIT CLOUD COVER ROUTINE *** 

REM 

IF US > 

IF XX > 

NEXT ZZ 
NEXT XX 



= 131 THEN 
= 600 THEN 



GOTO 8060 
GOTO 1460 
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